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JOYCE Sonderheft 4 

Jetzt 120 Seiten! Supersoftware und Informationen. 


JOYCE-PCW Sonderhefte 2 und 3 zum Preis von einem! 


DMV braucht Platz für neue Ideen - darum müssen wir unsere Lager räumen. 

Allen JOYCE-Besitzern machen wir deshalb ein einmaliges Angebot: 

JOYCE Sonderheft 2 und Sonderheft 3 sind ab sofort im Kombi-Pack zum Preis von 20,- DM beim Verlag zu beziehen. 
- Sie sparen 50% gegenüber dem Einzelpreis! 

JOYCE Sonderhefte sind Sonderpublikationen der PC AMSTRAD International und bieten jeweils auf 120 Seiten 
ausschließlich erstmalig veröffentlichte Beiträge. Tips und Tricks zu PCW 8256, 8512 und 9512. 

Außerdem gibt es zu jedem JOYCE Sonderheft eine Databox, die alle im Heft veröffentlichten Programme lauffahig 
auf zwei 3"-Disketten enthält. Die Databox ist nicht im Frühlingsaktions-Preis inbegriffen. 

Aus dem Inhalt Aus dem Inhalt 

JOYCE Sonderheft 2: JOYCE Sonderheft 3: 

Programme: Programme: 

Adreßverwaltung Vokabeltrainer 

Archivprogramm (Video-oder Literaturverwaltung) RAM-Monitor-Speicherinhalte verändern 
PASCAL-Compiler in BASIC Memory-Spiel 


__,_._ „ompiler u.- 

Suburbia (Spiel ähnlich Monopoly (R)) 
Turbo-PASCAL-Grafikroutinen ohne GSX 
Komfortable Balkengrafik 

Tips: 

JOYCE-Zweitlaufwerk selbst anschließen 
3-D-Plotter 

Etikettendruckprogramm 
Ordnung auf der Diskette mit LocoScript 
Funktionstasten selbst belegen 
Spaltensatz unter LocoScript 
dBase-Handbuch selbst ausdrucken 
LOGO- Funktionenzeichner 


Memory-Spiel 
Mini-DTP-Programm 
Drucker-Spooler unter CP/M 
Disketten-Kopierprogramm bis 43 Spuren 
Reset ohne Datenverlust 


Tips: 

Grafik auf dem JOYCE-Drucker 
Tastaturbelegung unter CP/M und 
LocoScript ändern 
Reset ohne Datenverlust 
Super-Werkzeugkiste dBase 
Grafikutilities für LOGO 


Best.-Nr. 34 20,- DM 


Aus dem Inhalt: 

- Strickmustergenerator 

- WordStar-Verbesserungen 

- Bundesligasimulator 

- Super Reaktionsspiel 

- FILEMANAGER 

- Pulldown-Menüs 

- Stichwortverzeichnis 

- Astrologieprogramm 

- Diskettenmonitor 

- Hauptstädte raten in LOGO 

- Statuszeile für dBase und Basic 

- Hardcopyroutine für 24-Nadler 

- LOGO macht Schachteln 

- dBase-Literaturverwaltung 

- Universelles Werkzeug zur Veränderung von 
dBase-Dateien 


JOYCE Sonderheft 4 

Best.-Nr. 367 20,- DM* 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 


JOYCE DATABOX Sonderheft 4 

Hier finden Sie alle Programme und Dateien 
auf vier Diskettenseiten. 

470 KB nur vom Besten... 

Und dennoch behalten wir die alten Preise bei! 

Das Leistungsverhältnis, das sich für Sie 
bezahlt macht. 

Erhältlich als 3“-Disketten für alle 
PCW 8256/8512/9512 

Diskette 1 enthält alle Programme lauffähig. 
Diskette 2 enthält die Quellcodes. 

Disk. 1: Best.-Nr. 3671 30,- DM* 

Disk. 2: Best.-Nr. 3672 24,- DM* 

Kombipack Disk. 1 und 2: 

Best.-Nr. 3673 48,- DM* 

* Unabhängig von der Anzahl der bestellten Artikel 
berechnen wir für das Inland 3,- DM bzw. für das 
Ausland 5,- DM Porto und Verpackung. 
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* 


Liebe Leser, 

kaum eine Wirtschaftsbranche hat in den vergangenen zehn Jahren derartige 
Höhenflüge erlebt wie die der EDV. Viele Firmen festigten ihre Postition, und 
zuhauf schossen neue Unternehmen wie Pilze aus dem Boden, um den äußerst 
ergiebigen Markt zu erobern. Eines dieser Unternehmen ist AMSTRAD. Aus 
dem Multi-Media-Konzern — das im englischen Brentwood ansässige 
Unternehmen fertigt unter anderem HiFi, Audio- und Videogeräte - wurde 
innerhalb von nur fünf Jahren einer der bedeutendsten europäischen 
Computerhersteller mit inzwischen reichhaltiger Angebotspalette. Das 
Erfolgskind von AMSTRAD war der CPC, der erste Komplettcomputer und 
mehr als nur eine Spielemaschine. 

Nach nunmehr ftinf erfolgreichen CPC-Jahren scheint der Zenit 
überschritten. Neue Technologien und ein Standard wie MS-DOS lassen 
immer mehr Anwender auf andere Systeme umsteigen. Überraschend ist 
jedoch die Tatsache, daß die Mehrzahl der durchweg zufriedenen CPC- 
Besitzer ihren zuverlässigen Helfer als Zweit- oder sogar Drittcomputer 
behalten. Erstaunlich ist auch der relativ geringe Preisverfall des CPC in den 
letzten zwei Jahren, auch die Gebrauchtpreise liegen im Schnitt wesentlich 
höher als bei anderen 8-Bit-Systemen. 

Für die Umsteiger auf MS-DOS unter Ihnen haben wir vorgesorgt. Die PC- 
Rubrik hat ab dieser Ausgabe ein neues Gesicht und wird künftig noch mehr 
interessante Informationen und Programme enthalten. 

Mit einer bunten und informativen Mischung aus Tests, Programmen und Tips 
fiir alle AMSTRAD-Computer wird Sie Ihre PC International auch in Zukunft 
unterhalten. 

Daß wir damit richtig liegen, beweisen Sie uns mit Ihren vielen Anrufen und 
Briefen. 

An dieser Stelle möchte ich mich im Namen der gesamten Redaktion dafür 
bedanken und Sie auch weiterhin zur aktiven Mitarbeit aufrufen. 

Herzlichst Ihr 


Stefan Ritter 
Chefredakteur 
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INHALT 


BERICHTE: 


AMS-Line: 12 

- Aktuelle Informationen vom Hersteller 
AMSTRAD. 


Public Domain: Fundgrube oder Ramschkiste? 14 

- Fast umsonst werden Programme in dem Public- 
Domain-Markt angeboten. Wir haben uns für Sie 
auf dem CPC-, PCW/JOYCE- und PC-Markt um¬ 
gesehen. 


SERIE: 


26 Im Zauberreich der Grafik 

- Wir zeigen Ihnen, wie Sie mehr Grafik aus dem 
CPC herausholen können. 


SERVICE: 


Die Service-Ecke 13 

- Eine Serviceleistung besonderer Art bieten die 
Firma ANDERS und AMSTRAD in einem Zusam¬ 
menschluß an. 


ASSEMBLER: 


45 Die Assembler-Ecke 

- Eine schnelle Suchroutine für Strings in Assem¬ 
bler. 


PROGRAMME: 


Chip, Chip, Hurra 42 

- Ein spannendes Taktik-Spiel für zwei Personen 
verspricht lange Unterhaltung auf dem CPC. 


Auf einen Blick 60 

- Sind Sie auch ein leidenschaftlicher Sammler 
von Videofilmen? Dann haben wir ein komforta¬ 
bles Archivierungsprogramm für Sie. 



Public Domain in aller Munde. Was ’PD' ist, erfahren Sie auf 

S. 14 


TIPS & TRICKS: 


48 100,- DM für 1 kByte 

- Viele 1-kByte-Programme zum schnellen Abtip¬ 
pen und Sammeln. Lassen Sie sich überraschen. 


51 


Auf einen Schlag 

- Eine andere Art von Katalogausgabe. 


52 


Unterm Strich 

- Bruchrechnen für den CPC. 


54 Ohne Wartezeiten 

- Kein Waren auf den Drucker bei der Benut¬ 
zung einer dk'tronics-Speichererweiterung. 


58 


Fensterin 

- Hilfreiche Fensteraufgabe für Diskettenkataloge. 
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Nun auch für den PCW: Bildschirmkompressor 

S.80 


HARDWARE: 


68 Zweitläufer 

- Auf dem Prüfstand: Wir haben für Sie das ACW- 
Laufwerk, das für den CPC angeboten wird, gete¬ 
stet. 


SOFTWARE REVIEWS: 

Spiele 32 

- Obliterator 

- Arcade Muscle 

- Turbo Espirit 

- Dark Fusion 

- Echelon 

- Vindicators 

Gamers Message 40 

- Suchen Sie Lösungen zu einem Spiel oder Ad- 
venture? Dann schauen Sie doch bei uns rein. 


PCW/JOYCE: 


Man hat es nicht für 
möglich gehalten. 
Nun können auch 
Bilder unter GEM 
auf Knopfdruck ab¬ 
gespeichert werden. 

S.91 



72 Wordstar wird "getuned" 

- Im Test: Noch mehr Funktionen für Wordstar. 
Nicht nur für den PCW. 

74 Zwei ungleiche Brüder 

- Mallard-BASIC auf dem CPC. Aber wie? 

80 Bilder zum Spartarif 

- Ein geniales Programm zur Bilderkomprimierung. 

82 Was wäre wenn.... 

- es kein NSWEEP gäbe? Eine deutsche Befehlser¬ 
klärung, des Public-Domain-Programms. 

83 Nur für JOYCEr 

- Ein Leserumfrage, bei der Sie auch viele Preise 
gewinnen können. 


PC: 

ln die Trickkiste geschaut 

- Unsere neue PC-Rubrik für BASIC2. 

86 

Lupenrein 

- Textdateien im Miniformat ausgedruckt. 

86 

Apfelmännchens Miniversion 

- Fraktale Grafik auf dem Bildschirm, program¬ 
miert in BASIC2. 

88 



Entscheidungshilfe 

- WhatChar-Zeichenabfrage innerhalb einer Batch- 
Datei 

ECHO mit Pfiff 

- Steuercodes mit ECHO nutzbar gemacht 
Bildersammeln für GEM 

- GemCap - Per Tastendruck ein Bild für 
GEMPaint. 

Montag hier, Dienstag da ... 

- Unser PC-Terminkalender für alle Gestreßten. 

Führungskämpfe 

- Regent - Das Taktikspiel um Macht. 


RUBRIKEN: 


Ein BAS/C2-Spiel, das die Redaktion begeisterte. Mit Glück und Ver¬ 
stand werden Sie der oberste Herrscher 

S.95 


3 Editorial 

3 Impressum 

6 Aktuell 

8 Leserbriefe 

98 Kleinanzeigen 

101 Händlerverzeichnis 

102 Inserentenverzeichnis 

102 Vorschau 
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92 

95 
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Bastlers Freude? 

Hobbytronic und Compu¬ 
terschau ’89 in Dortmund 

Sie ist fast zu einer Institution geworden, die Messe für 
Computer- und Elektronik-Freunde —genannt Hobby- 
tronic/Computerschau. Auch dieses Jahr wurde Dort¬ 
mund wieder zum Mekka der Lötkolbenritter und Com¬ 
puterfreaks. Unser Bericht soll Ihnen einen Eindruck 
vermitteln. 


Ein anderes Gesicht sollte diese 
große Verkaufsschau (sie als 
Messe zu bezeichnen, fällt an¬ 
gesichts der angebotenen Son¬ 
derpreise schwer) dieses Jahr 
bekommen, die Hallen sollten 
überschaubarer in ihrem Ange¬ 
bot werden. Als Ergebnis kam 
eine Vermischung beider The¬ 
menkreise in den Hallen 5 und 6 
heraus. 

Die beiden Messeteile sollten 
zwar wieder getrennt werden 
(Halle 5: Hobbytronic, Halle 6: 
Computerschau), da aber die 
meisten Elektronikanbieter in¬ 
zwischen den Computermarkt 


für sich entdeckt hatten, fiel die¬ 
se Trennung kaum ins Gewicht. 
Für den Besucher, der mehr aus 
informativen Gründen nach 
Dortmund kam, war die Schau 
verwirrend und unübersicht¬ 
lich, eine Unterscheidung war 
kaum möglich. 

Der interessierte Computer¬ 
oder Elektronikfan kam jedoch 
wieder auf seine Kosten, die an¬ 
gebotenen Waren wurden meist 
unter Normalpreis verkauft. 
Sehr stark vertreten waren in 
diesem Jahr die 16-Bit-Compu- 
ter, die angebotenen Teile 
reichten vom PC-/XT-/AT- 


Leergehäuse über Festplatten 
und Laufwerke für PC, Amiga 
und Atari sowie Netzteile, Ein¬ 
baulüfter und Steckkarten aller 
Art, wobei vor allem die Gra¬ 
fikkarten einen erheblichen An¬ 
teil am Verkauf hatten. Der Be¬ 
sitzer eines 16-Bit-Computers 
hatte hier wirklich die Qual der 
Wahl. Auf dem 8-Bit-Compu- 
ter-Bereich gab es anscheinend 
’Notschlachtungen’, besser ge¬ 
sagt, wurden Computer, Peri¬ 
pherie und Software zu Schleu¬ 
derpreisen veräußert. Hier do¬ 
minierten vor allem die Com- 
modore-Computer, die es in 
allen Varianten (voll funktions¬ 
fähig, fast funktionsfähig und 
’Ersatzteillager’) zu kaufen 
gab. 

Den meisten Nutzen von der 
Hobby tronic/Computerschau ha¬ 
ben auf jeden Fall die Händler, 
die auch recht zufrieden mit 
dem Erfolg waren. Insgesamt 
154 Aussteller nahmen die Ge¬ 
legenheit wahr, sich neuen Kun¬ 
den vorzustellen; fast 67000 Be¬ 
sucher kamen zur Ausstellung. 
Neuigkeiten gab es kaum, bis 
auf die Software, hier wurden 
einige neue Programme vorge¬ 


stellt. Ansonsten beherrschten 
die 'Oldies’ die Szene, meistens 
konnte man für wenig Geld eine 
Menge an Programmen kaufen, 
die vor ein paar Jahren das Bud¬ 
get als Einzelgänger schon 
überschritten hätten. 


Ausstellung auf der 

Ausstellung 

Zur Entspannung war eine Ho¬ 
lographie-Ausstellung zu be¬ 
sichtigen, in der dreidimensio¬ 
nale Lichtbilder ausgestellt wa¬ 
ren, wobei auch zu erfahren 
war, wie diese Technik entsteht 
und wie man sie anwenden 
kann. Die ausgestellten Bilder 
zeigten Reales und Unwirkli¬ 
ches und waren eine Bereiche¬ 
rung für die Messe. 

Die Hobbytronic/Computer- 
schau ist das geblieben, was sie 
war: eine gute Gelegenheit, sei¬ 
ne Bastlerkiste aufzufüllen oder 
das eine oder andere Angebot 
zum 'Schnäppchen'-Kauf zu 
nutzen. 

Insofern freut sich der Bastler 
schon auf nächstes Jahr, die 
Termine stehen schon fest. 

(jb) 



Utility-Sammlung zu MS-DOS 


30 Dienstprogramme für den 
PC-Benutzer, vom 'blutigen An¬ 
fänger’ bis zum Programmierer, 
bietet die Firma Trados Unter¬ 
nehmensberatung unter dem Ti¬ 
tel 'Trados Collection’ an. 

Auf der Diskette befindet sich 
unter anderem ein FileFind-Pro- 
gramm, welches bestimmte Da¬ 
teien auffindet, und ein Double- 
FileFind zum Auffinden doppel¬ 
ter Dateien, wobei auch nach 
den gleichen Dateien mit unter¬ 
schiedlichen Dateinamen ge¬ 
sucht werden kann. DosHelp 
hilft als residentes Programm 
mit Syntax und Erklärungen so¬ 


wie Anwendungsbeispielen bei 
jedem DOS-Befehl. Eine DOS- 
Shell, die zum Norton-Com- 
mander kompatibel und auch 
netzwerklähig ist, gehört eben¬ 
falls zur Sammlung. 

Die Trados Collection kostet 
300,— DM zuzüglich Mehr¬ 
wertsteuer. 

Info: Trados 
U nternehmensberatung 
für Übersetzung, 
Dokumentation und 
Software GmbH 
Rotebühlstr. 87 
D-7000 Stuttgart 1 
Tel. : 0711/627068 


Computer auf SWF 1 


Das Citizen MFR 525 Conver¬ 
ter-Kit gibt es seit März 1989 
auch für die AMSTRAD-PCs 
1512/1640. Mit diesem Umbau¬ 
satz kann der Besitzer eines sol¬ 
chen PC ein 3,5“Laufwerk an¬ 
stelle des zweiten Floppy-Lauf- 
werks einbauen. 

Der PC erkennt beide Lauf¬ 
werksgrößen und greift automa¬ 
tisch darauf zurück. Der Ein¬ 
bau-Kit wird komplett mit Flop- 
py-Laufwerk, Interface, Kabel 


und Montagezubehör ausgelie¬ 
fert. Der Preis beträgt für ein 
Converter-Kit mit einem 

1- MByte-Laufwerk 360,— DM; 
mit umschaltbarcm 1-MByte/ 

2- MByte-Laufwerk 460,— DM. 


Info: Henschel+ Stinnes 
Agentur für Öffentlichkeitsar¬ 
beit GmbH 
Ismaninger Str. 52 
D-8000 München 80 
Tel.: 089/474010 


Computerfreunde im Sendebe¬ 
reich des Südwestfunks Baden- 
Baden können ihr Lieblingsthe¬ 
ma seit Januar auch im Sender 
SWF 1 mitverfolgen. 

Einmal im Monat gibt es im 
Rahmen des Programms 'Für 
junge Hörer’ die Computerecke 
zu Beginn des Schülermagazins 
'Peperoni'. Die Sendedaten kön¬ 


nen den Programmzeitschriften 
entnommen werden, meist wird 
die Computerecke am letzten 
Dienstag eines Monats ab 15.30 
Uhr ausgestrahlt. 

Info: Südwestfunk 
Für junge Hörer 
Computerecke 
Postfach 820 
D-7570 Baden-Baden 
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Die PC-Reihe 2286/2386 wird 
nach einer Lizenzvereinbarung 
mit Microsoft nun auch zusätz¬ 
lich mit dem Betriebssystem 
OS/2 (Version 1.1) ausgeliefert, 
beim PC2286 liegt dieses Be¬ 
triebssystem den Computern der 
4-MByte-Version bei. Das 
OS/2-System beinhaltet die Be¬ 
nutzeroberfläche sowie den Pre¬ 
sentation Manager. 

Den PC 2086 kann man jetzt 
günstig im ^Profi-Sensa- 
tions-Paket’ bekommen. Zur 
Ausstattung gehört ein PC2086 
mit einem 3,5-Laufwerk, dem 
Drucker DMP 3160, einem 
VGA-Monitor 12“ monochrom 
und dem integrierten Software- 
Paket 'Lotus Symphony’. Dieses 
Softwarepaket enthält eine Ta¬ 


bellenkalkulation, eine Textver¬ 
arbeitung mit deutscher Recht¬ 
schreibprüfung sowie eine Da¬ 
tenbank, Grafikprogramme für 
Geschäftsgrafiken und Kommu¬ 
nikationsprogramme. Der Preis 
richtet sich nach der Ausstat¬ 
tung, so kostet die oben genann¬ 
te Konfiguration 2.999,— DM, 
andere Kombinationen mit ver¬ 
schiedenen Druckern, Monito¬ 
ren und Laufwerksausstattungen 
sind ebenfalls zu erhalten. Die¬ 
ses Paket ist allerdings limitiert 
und nur bis zum 30.06.1989 zu 
bekommen. 

Info: AMSTRAD GmbH 
Robert-Koch-Str.5 
D-6078 Neu Isenburg 
Tel.: 06102/3002-0 


Zitate und DFU 


Von der Software-Connection 
gibt es schon seit einiger Zeit 
zwei MS-DOS-Disketten voll 
mit Zitaten, Weisheiten und 
Sprüchen, eine dritte Diskette 
soll demnächst folgen. Mit die¬ 
sen Zitat-Disketten sollen vor 
allem Journalisten, Texter, 
Schüler/Studenten, Autoren, 
Werbetexter, Lehrer, Redakteu¬ 
re und Politiker angesprochen 
werden, oder, kurz gesagt, je¬ 
der, der reden oder schreiben 
muß. Auf den Disketten befin¬ 
den sich jeweils knapp dreitau¬ 
send Sprichwörter, Aphoris¬ 
men, Zitate sowie Volks- und 
Bauernweisheiten aus allen Le¬ 
benslagen. 

Der Suchvorgang ist schneller 
als bei vergleichbaren Büchern, 
da er vom Computer unterstützt 
wird, gefundene Zitate können 
direkt in eine Textverarbeitung 
übernommen werden. Die bei¬ 
den bis jetzt erschienenen Dis¬ 


ketten 'Zitate 1’ (ISBN 
3-927453-00-5) und 'Zitate 2’ 
(ISBN 3-927453-01-3) sind im 
Buchhandel, in Software- und 
Computershops oder direkt bei 
Kienitz und Grabis für DM 
29,50 pro Diskette zu erhalten. 
Als weitere Neuheit gibt es ein 
DFÜ-Programm namens MIR- 
ROR II, ein Clone des bekann¬ 
ten CROSSTALK XVI. MIR- 
ROR II enthält alle Funktionen 
von CROSSTALK, zusätzlich 
allerdings noch Funktionen, die 
über das Vorbild hinausgehen. 
MIRROR II läuft auf allen IBM 
und kompatiblen Computern 
mit mindestens 256 kByte 
Hauptspeicher und einem Dis¬ 
kettenlaufwerk und kostet DM 
149,-. 

Info: Kienitz und Grabis 
Verlag + Versand 
Schulstraße 18 
D-8913 Schondorf 
Tel.: 08192/628 



Aus dem Hause PANASONIC 
kommt ein neuer 9-Nadel- 
Drucker, der durch seine einfa¬ 
che Handhabung auch von Ein¬ 
steigern im Computerbereich zu 
den unterschiedlichsten Lösun¬ 
gen herangezogen werden kann. 
Der KX-P1180 verfügt über 
sechs Schriftarten, die er mit 
192 Zeichen pro Sekunde in 
Entwurfsqualität und 38 Zei¬ 
chen in Korrespondenzqualität 
ausdruckt. 

Darüber hinaus läßt sich das Ge¬ 
rät zwischen Endlos-, Einzel- 
blatt- und Umschlageinzug um¬ 
schalten. Eine eingebaute Funk¬ 
tion ermöglicht das Abtrennen 
von Endlospapier ohne Papier¬ 
verlust, indem das Papier da¬ 
nach an die Druckposition zu¬ 
rückgefahren wird. Die Papier¬ 
einführung kann dabei von hin¬ 
ten oder von unten genutzt 


werden. Der Drucker enthält 
zwei Emulationen, zum einen 
die des EPSON FX-86e, zum 
anderen die des IBM Proprinter 
II, andere Druckertreiber kön¬ 
nen erworben werden. Die größ¬ 
te Papierbreite liegt bei DIN A4, 
es können bis zu drei Durch- 
schlägc angefertigt werden. 

Der Anschluß des Druckers ge¬ 
schieht über eine 8-Bit-Paral- 
lel-Standardschnittstelle, optio¬ 
nal kann man ein RS-232-C-In- 
terface bekommen. Die unver¬ 
bindliche Preisempfehlung von 
der Firma PANASONIC liegt 
bei 656,— DM, die Ausliefe¬ 
rung findet ab März 1989 statt. 

Info: PANASONIC Deutsch¬ 
land GmbH 
Winsbergring 15 
D-2000 Hamburg 54 
Tel.: 040/8549-245 


TV-Modulator und Radio-Uhr 


Die AMSTRAD Radio-Uhr und 
der Fernsehmodulator MP3, die 
als integrierte Geräte beim 
CPC-Techno-Center mitgelie¬ 
fert wurden, sind ab sofort auch 
bei der Firma Weeske einzeln zu 
beziehen. 

Der TV-Modulator, der einen 
CPC-Farbmonitor zum Farb¬ 
fernseher macht, kostet 199,— 
DM. Die Radio-Uhr ist für 
89,- DM zu erhalten. Beide 
Geräte sind im Design den 
CPCs angepaßt und lassen sich 
unter dem Monitor plazieren. 


Während das Radio über ein ein¬ 
gebautes Netzteil verfügt, wird 
der Femsehmodulator an den 
12-Volt-Anschluß des CTM 644 
angeschlossen. Die Firma 
Weeske bietet außerdem den 
MP2 (zum Anschluß des CPCs 
an ein Fernsehgerät) für 129,— 
DM an. 


Info: Weeske 
Computer-Elektronik 
Potsdamer Ring 10 
D-7150 Backnang 
Tel.: 07191/1528-29 od. 60076 
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An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten, Pro¬ 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön¬ 
nen. Oft erreichen uns meh¬ 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant¬ 
wortet. j hre pc-Redaktion 


Neue Durchwahlnummern 
für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 - 20.00 Uhr stehen Ih¬ 
nen zur Verfügung: 

Claus Daschner (CPC) 

«(0 56 51)80 09 -16 

Jürgen Borngießer 

(CPC) + PC 

tx (0 56 51)80 09 -17 

Ralf Schößler (PCW) 

o (0 56 51)80 09 -18 


PS: Die Redaktion behält sich vor, Leserzuschriften in gekürzter 
Form wiederzugeben 


Unser Bericht über den Ein¬ 
satz des CPC 464 als Autopi¬ 
lot im neuen BOIING-Jet hat 
bei den Lesern für einiges 
Aufsehen gesorgt. Anschei¬ 
nend handelt es sich dabei 
um eine Entdeckung, die 
auch in anderen Bereichen 
Einsatz finden soll, wie der 
nachstehende Leserbrief be¬ 
weist. 

JOYCE als Gewächshaus? 

Ermuntert durch den interes¬ 
santen Artikel von Herrn Hu¬ 
bert von Trockendock über 
den Einsatz des CPC im 
Flugverkehr möchte ich mich 
heute mit einigen aufregen¬ 
den Beobachtungen am JOY¬ 
CE an Sie wenden, um so 
auch diesem hervorragenden 
Gerät neue Aufgabengebiete 
zu erschließen. 

Als ich neulich, nach länge¬ 
rer Zeit der Abwesenheit von 
zu Hause, bei dringend nöti¬ 
gen Aufräumungsarbeiten in 
meinem Zimmer auch meinen 
JOYCE an einen neuen Platz 
stellen wollte, mußte ich fest¬ 
stellen, daß dies nicht mehr 
möglich war. Eine Pflanze, 
eine kletternde Ranke (ran¬ 
kender Gummibaum, sagte 
mir eine Biologin), war von 
unten her durch die Lüf¬ 
tungsschlitze des Gerätes in 
den Computer hineinge¬ 
wachsen und hatte sich darin 
derart ausgebreitet, daß eine 
komplette Demontage des 
Gerätes nötig wurde. Alle 


Blätter waren gut entwickelt 
und grün, obwohl der JOY¬ 
CE durch eine Schutzhaube 
abgedeckt war. Wahrschein¬ 
lich hatte das ungewöhnliche 
Wachstum schon unbemerkt 
begonnen, als ich vor eini¬ 
gen Wochen noch an besag¬ 
tem Computer arbeitete. 
Hierzu nun meine Fragen: 

].) Können Sie sich erklären, 
aufgrund welcher Bedingun¬ 
gen die Pflanze das Gerät 
aufsuchte ? Herrschen im In¬ 
neren des Monitors eventuell 
Strahlungen (Infragrün, ul¬ 
trarot etc.), die pflanzliches 
Wachstum besonders för¬ 
dern? Ein Mitarbeiter Ihrer 
Schwesterzeitschrift PCpur 
verwies auf das rote Licht 
der Floppy, während ich ja 
mehr an das naturgrün des 
Monitors glaube. Meinen PC 
1640 jedenfalls hat die 
Pflanze verschmäht. 

2. ) Bestehen womöglich gar 
Erfahrungen mit JOYCE- 
Rechnem als Treibhaus ? 

3. ) War die Namensgeberin 
des JOYCE vielleicht gar 
keine AMSTRAD-Sekretärin, 
sondern die Gärtnerin des 
Herrn Sugar? 

4. ) Wird bei der Produktion 
des JOYCE Naturgummi ver¬ 
wendet, der die Ranke hätte 
anziehen können ? 

5. ) Können Sie mir eine Pro¬ 
grammiersprache nennen, 
die auf Hardware-Ebene di¬ 
rekt das Wachstum einge¬ 
drungener Pflanzen beein¬ 


flussen könnte, z.B. durch 
direkte Ansteuerung des 
Floppytnagneten oder Um¬ 
lenkung der Elektronen¬ 
strahlen der Bildröhre nach 
hinten ? Ein Logo-Programm 
wie das folgende 
to flower_red 
repeat 4 [circle 5 rt 90] 
fill (5) 

end 

brachte die Ranke leider 
nicht zum Blühen. Bestimmt 
hat man die entsprechenden 
Befehle einfach blockiert, um 
sie als Zusatzprogramm 
dann teuer verkaufen zu 
können. 

Ich stelle es mir jedenfalls 
sehr schön vor, in Zukunft di¬ 
rekt programmierte Pflan¬ 
zenzucht betreiben zu kön¬ 
nen. Eine Versuchspflanze 
der oben genannten Art stelle 
ich gerne zur Verfügung. 

D. Undreist, 
Gippenich-Ätsch 

Erst im nachhinein fiel uns 
die angegebene Adresse auf. 
Und daraufhin befielen uns 
Zweifel, ob dies alles so sei¬ 
ne Richtigkeit hat, oder ob 
der Scherzboldmonat April 
seine Finger im Spiel hatte. 
Der nächste Brief hätte diese 
Zweifel wieder ausräumen 
sollen, doch..., aber lesen 
Sie selbst: 

Sicherlich werden einige Ih¬ 
rer Leser den Artikel über 
den CPC als 'Flugkapitän ’ in 
Heft 4/89 für einen April¬ 
scherz gehalten haben. Auch 
ich wollte meinen Augen zu¬ 
erst nicht trauen, als ich, 
während meiner letzten Reise 
mit der Fluggesellschaft 
BOIING, zufällig ein men¬ 
schenleeres Cockpit betrat 
und mir statt einer Fotomon¬ 
tage ein waschechter CPC 
entgegenfeixte. 

Allerdings handelte es sich 
dabei um einen auf der Di¬ 
rektroute Hagen - Honolulu 
eingesetzten CPC 6128 mit 
eingebautem Disk-Laufwerk, 
so daß die von Ihnen be¬ 
schriebenen Ladezeitproble¬ 
me glücklicherweise nicht 
auftraten. 

Um skeptischen Gemütern 
nun einen handfesten Beweis 
zu liefern, schmuggelte ich 
eine Kopie des Computer¬ 
programmes ’AUTO- 

PIL. BAS' von Bord, aus dem 


ich Ihnen, aller Urheber¬ 
rechte zum Trotz, einige der 
interessantesten Passagen 
nicht vorenthalten möchte: 
Schon eingangs wird klar, 
daß dieses epochale Werk 
weit über die technischen Er¬ 
fordernisse hinausreicht und 
ein wirklich allumfassendes 
Flugmanagement darstellt: 

10 REM Autopilot: fuer alle 
Flugzeugtypen 11 ' 

20 MEMORY OFF heidelberg: 'Ur¬ 
laubsstimmung 
30 EI: 'Essen und 
40 ORI GIN: 'Trinken 
50 0N BREAK G0SUB 20000: ' Kotz- 
tuetenhandling 

60 'Begruessung der Passagiere 
70 TAG ahler SYMBOL:HI MEM 
80 IF UPPER ZONE (EDITh) > 

90 THEN CALL girl 

Bedauerlicherweise konnte 
der Autor seinen gepflegten 
und übersichtlichen Pro¬ 
grammierstil nicht konse¬ 
quent durchhalten. Zeilen 
wie: 

1269 IF EVERY TIME regen 0R 
schnee 0R hagel UNT NOT 
FRE(sicht) THEN WAIT F0R lady 
DI ELSE LETs GOTO san francisco 

erschweren unnötig das Ver¬ 
ständnis und hätten durch¬ 
dachter formuliert werden 
sollen. Dies ist aber, vorab 
gesagt, der einzige Kritik¬ 
punkt an diesem bahnbre¬ 
chenden Monument der Soft¬ 
ware-Entwicklung. 

Geradezu verblüffend wirkt 
hingegen die geniale Ein¬ 
fachheit der Option FLUG¬ 
STEUERUNG DURCH PAS¬ 
SAGIERE, welche vor allem 
als spielerischer Zeitvertreib 
für die lieben Kleinen an 
Bord gedacht ist: 

4980 0N ERROR GOTO bruchlandung 
4990 MERGEn Sie sich das! 

5000 IF J0Y(0) =1 THEN! DRIVE rauf 
5010 IF JOY(0) = 2 THEN ! DRIVE 
runter 

5020 IF JOY(O) = 4 THEN ! DRIVE links 
5030 IF JOY{0) = 8 THEN I DRIVE 
rechts 

5040 IF JOY(O) = 16 THEN STOP 
5050 IF NOT INKEY(schleudersitz) 
THEN OPENOUT WINDOW:SAVE“ 
oursouls“:END 
5060 alles CLEAR 

Kaum zu glauben, daß es un¬ 
ter diesen Umständen noch 
Gesellschaften gibt, die Geld 
in die Bezahlung sündhaft 
teurer Flugzeugbesatzungen 
investieren. 

Übrigens hält die BOIING 
AIRLINES für alle Fluggä¬ 
ste, denen das Manövrieren 
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eines echten Düsenjets zu 
langweilig ist, auf der B-Sei- 
te der Diskette einen Flugsi¬ 
mulator parat, der auf 
Knopfdruck die Frontscheibe 
im Cockpit in einen Farbmo¬ 
nitor umwandelt (Auflösung 
320*200 Punkte, 4 Farben). 
Hinsichtlich der Steuerung 
sei noch erwähnt, daß erst 
kürzlich auf Wunsch eines 
großen Reiseunternehmers, 
der die allseits beliebten 
Fahrten ins Blaue arran¬ 
giert, eine wahlweise RND- 
Lenkung in das Programm 
integriert wurde. Flugdauer 
und Landeort hängen dann 
nur noch vom Zufall und den 
zur Neige gehenden Treib¬ 
stoffvorräten ab. 

Wirklich, AUTOPIL.BAS 
weiß Jur alle Situationen des 
modernen Flugverkehrs eine 
passende Antwort zu geben. 
Sei es nun die allzu nahe Be¬ 
gegnung mit einem anderen 
Flugobjekt: 

7430 PRINT CHR$(7)CHR$(7)C 
HR$(7) "Weg da! Aus dem Weg, Ihr 
Idioten! 

“CHR$(7)CHR$(7)CHR$(7) 
oder die Warteschleife über 
dem verstopften Landeflug¬ 
platz: 

3333 FOR i=0 TO 999999999: 

NEXT i 

oder der richtige Umgang 
mit Hijackern: 

6500 PRINT“PRESS PISTOL THEN 
ANY KEY!“ 

6510 INPUT terrori? 

6520 0N terror# G0SUB Havanna, 
Beirut, Teheran, Tripolis, 
Frankfurt 
6530 no RETURN 

Anzumerken wäre noch, daJJ 
der Autor Ikarus von Böm¬ 
berg (3 Jahre) beim letztjäh¬ 


rigen Programmierwettbe¬ 
werb des städtischen Kinder¬ 
gartens von Entenhausen mit 
seinem Beitrag den zweiten 
Platz belegte. 

Allen BAS IC-Freunden sei 
gesagt, daß AUTOPIL.BAS 
sich nach einigen geringfügi¬ 
gen Änderungen auch her¬ 
vorragend zur individuellen 
Steuerung von Weltraumsa¬ 
telliten (billigste Methode 
zum Empfang zusätzlicher 
Fernsehprogramme), Persh¬ 
ing-Raketen, Atom-Unter¬ 
seebooten und ähnlichem 
eignet. 

Reiner Lorenz, 

Hagen 

Irgendwie kommt uns die Sa¬ 
che nicht geheuer vor, zu¬ 
dem Hubert von Trocken¬ 
dock mit einer dreiviertellee¬ 
ren Literflasche Whisky an 
seinem Arbeitsplatz vorge¬ 
funden wurde. Will uns hier 
etwa einer foppen??? 

(Red.) 

Leserbrief zu L0C0C0N 

Das Programm LOCOCON 
(PC 1 '88) bzw. die für lang¬ 
same Typenraddrucker er¬ 
weiterte Version LOCO- 
CONZ (PC 10’88) ermög¬ 
licht die Ausgabe von Loco- 
Script l.xx-Texten auf 
Fremddrucker. Dabei ist 
ohne Programmänderung 
eine Anpassung der Drucker¬ 
sequenzen möglich. Ebenso 
können die deutschen Um¬ 
laute wahlweise in ASCII 
oder LocoScript-Codierung 
ausgegeben werden. 

Sollen Sonderzeichen von 
Typenraddruckem ebenfalls 


aus gedruckt werden, so ist 
dies nur durch eine Pro¬ 
grammänderung zu errei¬ 
chen. Dazu wird jedoch Tur¬ 
bo Pascal 3.0 von der Firma 
Borland/Heimsoeth benö¬ 
tigt. Die Umwandlung muß 
dabei ähnlich der Umlaut- 
Anpassung in der PROCE- 
DURE Konvert-Menue er¬ 
folgen. 

Eine einfache Möglichkeit, 
die Sonderzeichen des 
Fremddruckers zu benutzen, 
ist jedoch auch manchmal 
möglich: Zunächst im Hand¬ 
buch des Typenraddruckers 
den Zeichencode des Sonder¬ 
zeichens feststellen. An¬ 
schließend im JOYCE-Be- 
nutzerhandbuch das Loco- 
Script-Zeichen suchen, das 
diesem Zeichencode ent¬ 
spricht (Handbuch I: 
JOYCE-Zeichensatz und Ta¬ 
staturbelegung). Nach dem 
Erstellen des Textes mit der 
Funktion Suche/Ersetze das 
dem Sonderzeichen entspre¬ 
chende LocoScript-Zeichen 
einsetzen. Im CP/M-Modus 
kann dann der Text mit Loco- 
Con ausgegeben werden. 

Für Zeichen im Bereich von 
128 bis 159 funktioniert die¬ 
ses Verfahren leider nicht, 
weil dieser Bereich für die 
internen LocoScript-Steuer- 
sequenzen reserviert ist. 

Wolfgang Otternberg, 
Leverkusen 


MasterScan/MasterPaint 

Vor einiger Zeit habe ich mir 
die Programme MasterScan 
und MasterPaint gekauft. 

Die Programme gefallen mir 
recht gut, es tritt nur ein 


J 


“Fehler“ beim Ausdrucken 
der Bilder auf: 

Kreise werden als Ellipsen 
und Quadrate als Rechtecke 
ausgedruckt. Es wird also 
die X- und die Y-Achse nicht 
gleich ausgedruckt. 

Nachdem ich das Programm 
der englischen Herstellerfir¬ 
ma zugeschickt hatte, versi¬ 
cherten die mir, daß das Pro¬ 
gramm jetzt einwandfrei lie¬ 
fe. Da das nicht der Fall ist, 
möchte ich Sie hier um Rat 
ersuchen. 

Dietrich Weiß, 

Feuchtwangen 

Wie uns bekannt ist, hat ein 
anderer Leser, der dasselbe 
Problem hatte, seine Disket¬ 
te auch nach England ge¬ 
schickt. Bei ihm funktioniert 
der Ausdruck jetzt ohne Pro¬ 
bleme. Schicken Sie die Dis¬ 
kette also noch einmal nach 
England. 

(Red.) 

JOYCE-Drucker geknackt 

In der PC-Amstrad 7/88 ist 
ein Artikel erschienen, der 
sich mit dem JOYCE- 
Drucker beschäftigte. Hierzu 
möchte ich noch etwas an¬ 
merken. 

Das OUT-Kommando ist mit 
den Mallard-BASIC Kom¬ 
mandos INP und WAIT ver¬ 
wandt. INP ergibt in der Re¬ 
gel den Zustand eines Ports 
(bzw. Endgerätes). INP(252) 
ergab 248 und zwar im Zu¬ 
stand “Drucker ruht“ beim 
JOYCE. Es kann nicht aus¬ 
geschlossen werden, daß im 
Zustand “Drucker in Be¬ 
trieb“ mehrere Teil-Zustän- 


Software 

LocoScript 12$ 

24 PinDriw 
LocoFontM*24 
LocoSpell 
LocoMail 
LocoFile 
I LocoKey it| 

U.V.« J 
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* STARDRIVE 5.25-Laufwerke für CPC 6/464/6128 jetzt auch In 2*360 KS-Austührung mit: 

- 12 Monate Garantie, Geräte aus industrieller Produktion 

- Formschönes Flachgehäuse mit inl. Breitband-LED-Anzeige 

- Sehr leiser Laut, Nelztell. Schalter etc. 

- Eingebauter Diskottenseltenumschaltor (alle 5,25'- u. 3,5“-Laulwerke) 

- Sofortige Betriebsbereitschafl 

- Alle Kabel und Bedienungsanleitung im Lleterumlang enthalten 

3,S"-Zwe.tlaufwerk (720 KB) 

nur 298, - DM 

5,25“-Zweitlautwork (720 KB) 

nur 348. - DM 

5,26“ Externei Disk Drlve: 

(s. Test In H. 10/88 S, 40: Fazit: "sehr empfehlenswert") 

als Zweitlaufwerk 

als Erstlaufwerk für CPC 464 

Incl Handbuch. Systemdiskette, Controller 
als Doppellaufwerk 3" + 5.25“ f. CPC 464 

Incl. Handbuch. Systemdiskette. Coniroller 

nur 298. - DM 

nur 498, - DM 

nur 698, - DM 

Weitere Angebote (Auszug aus unserer kostenl. Liste) 

- 3*-Zweltlw. FDt orig. Schneider/Amstrad 

nur 289. - DM 

-5,2S"-Einbau-Laufwerk (Slim-Llno) 

nur 169. - DM 

Preis zzgl. Porto/Verpackung. Liste/Prospekte kostenlos 
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PRINT # 8-Befehle, die nicht 
mit einem Strichpunkt enden, 
werden mit den ASCII-Codes 
13 und 10 (Carriage Return 
und Line Feed) beendet. In 
diesem Fall wird davor der 
ASCIl-Code 9 an den 
Drucker gesendet, worauf 
dieser um eine Horizontalta¬ 
bulatorstelle weiterfährt. 
Die Anzahl der Zeichen, die 
am Zeilenanfang übersprun¬ 
gen werden, kann mit 


geben. Ist das Programm nun 
fertig eingegeben, geben Sie 
folgendes ein: 

LOAD“ TEIL 1“ 
MERGE“TEILx“ 
MERGE“TEILx +1“... 

Später können Sie dann das 
Programm unter dem ent¬ 
sprechenden Namen abspei¬ 
chern. 

(Red.) 


de erkannt werden (z.B. Puf¬ 
fer voll). Mühsames Experi¬ 
mentieren könnte hier wei¬ 
terhelfen. 

Mit dem WAIT-Kommando 
ließe sich theoretisch sicher¬ 
stellen, daß keine Daten an 
den Drucker geschickt wer¬ 
den, solange nicht eine be¬ 
stimmte Antwort auf das 
INP-Kommando vorliegt. 

Meines Erachtens nach ist es 
ein Mangel des JOYCE- 
Handbuchs, daß dem An¬ 
wender im Handbuch kein 
Kapitel zum Einsatz von 
INP/OUT/WAIT oder einige 
Adressen hierfür gegeben 
wurden. 

Paul Ney, 
Kassel 


Ausdruck mit Gena 

Bei dem Ausdruck von As- 
semblerlistings in Gena 3.1 
auf dem NLQ 401 störte 
mich, daß nach dem Lochen 
der einzelnen Seiten immer 
Teile von Adressen verloren¬ 
gingen. Nach vergeblicher 
Suche im Druckerhandbuch, 
wie ich den linken Rand ein¬ 
stellen kann (einen ähnlichen 
Befehl wie W1DTH für den 
rechten Rand), machte ich 
mich daran, selber ein As¬ 
semblerprogramm zu schrei¬ 
ben, welches dies ermög¬ 
licht. 

Nach Initialisierung des Pro¬ 
gramms im Speicher, muß 
noch der Einsprung der 
Druckerroutine an hBD2B, 
MC PRINT CHAR, gepatcht 
werden, um die neue Routine 
einzubinden. Dies geschieht 
unter BASIC mit den Be¬ 
fehlen: 

POKE &BD2B, &C3: POKE &BD2C, & 

80: POKE &BD2D, &BE 

Das Prinzip des Maschinen¬ 
programms ist recht einfach: 
Es werden alle auszu¬ 
druckenden Zeichen getestet, 
und wenn es sich um den 
ASCIl-Code 10 (also einen 
Line Feed) handelt, wird ein 
Flag gesetzt. Dieses Flag 
wird vor dem Ausdrucken 
des eigentlichen Zeichens 
abgefragt. Ist es gesetzt, be¬ 
deutet das, daß das zuletzt 
ausgegebene Zeichen Line 
Feed war, also eine neue Zei¬ 
le anfängt, denn alle 


PRINT # 8,CHR$(27)"D"CHR$(x)C 
HR$(0) 

bestimmt werden, wobei x 
die Anzahl der Leerstellen 
darstellt. 

So können nun unter BASIC 
Programme mit LIST # 8 
oder unter Gena 3.1 Assem- 
blerlistings mit einem genü¬ 
gend großen linken Rand 
ausgegeben und gefahrlos 
abgeheftet werden. Auch das 
Zusammenarbeiten mit ande¬ 
ren Programmen müßte ge¬ 
währleistet sein, wenn diese 
als letztes Zeichen einer Zei¬ 
le einen Line Feed senden. 

Der BASIC-Lader 
10 FOR i=&BE80 TO &BEA0:READ 
a$:POKE i, VAL(“& u +a$) :NEXT 1: 
SA VEREIN¬ 
TER. BIN“, b, &BE80,&21:END 
20 DATA E5,F5,21,A0,BE,7E,36, 
00,B7,28 

30 DATA 0A,CD,2E,BD,38,FB,3E, 

09,CD,31 

40 DATA BD,Fl,FE,0A,20,02,36, 
FF,El,CF 
50 DATA F2,87,FF 

Stefan Gründel, 
Veitshöchheim 


Zwischenstop 

Da die Listings aus Ihrer 
Zeitschrift oft sehr lang sind, 
ist es aus Gründen der Kon¬ 
zentration und der Ausdauer 
kaum möglich, diese an ei¬ 
nem Stück einzugeben. Gibt 
es eine Möglichkeit, diese 
Programme in mehreren Tei¬ 
len einzugeben und später 
zusatnmenzumischen ? 

Jörg Schäfer, 
Hannover 

Selbstverständlich ist dies 
möglich. Tippen Sie die ein¬ 
zelnen Teile ein und spei¬ 
chern Sie diese in der Form 
SAVE“TEILx.BAS“,a ab. 
Für x sollten Sie die Num¬ 
mer des jeweiligen Teils ein- 


Soundmanager 
(Heft 4/89) 

Das Programm Soundmana¬ 
ger birgt noch zwei kleine 
Schönheitsfehler. 

Der erste kann durch Einfü¬ 
gen folgender Zeile behoben 
werden: 

1195 GOSUB 6990 

Durch diese Änderung wird 
das Programm gegen vorei¬ 
liges 'Herumtippen ’ auf der 
Tastatur während der Initia¬ 
lisierungsphase geschützt. 
Ersetzen Sie nun noch in den 
Zeilen 3880 und 4150 den 
Befehl 'MOVER -16,0’ 
durch ‘MOVE xg,yg +16 ’, 
so kann es nicht mehr passie¬ 
ren, daß Sie, während sich 
der Joystickpfeil auf dem 
Editorfenster befindet, durch 
Bewegen des Editorcursors 
und nachträgliches Scrollen 
im Editorfenster, einen zwei¬ 
ten Joystickpfeil bekommen. 

Andreas Stroiczek, 
Minden 


Tadel 

Ich kaufe schon seit Jahren 
Ihre Zeitschrift, um mit mei¬ 
nem CPC 464 zu arbeiten. 
Beim Abtippen des Listings 
MAZE-GLIDER in Heft 1/89 
sind mir wieder einige Dinge 
auf gefallen, die mich immer 
wieder verärgern und die 
nach meiner Meinung ver¬ 
meidbar sind. 

1. Man schreibt mit der Zei¬ 
lenautomatik in Zehner¬ 
schritten ein Programm ab 
und merkt plötzlich, daß die 
Zeilennummem nicht mehr 
stimmen, weil unversehens 
zwischen 1940 und 1950 die 
Zeile 1945 eingefügt ist. Es 
gibt einen sinnvollen Befehl: 
RENUM, mit dem man das 


wunderbar umgehen kann. 
Sie sollten auf Ihre Autoren 
einwirken, daß dieser Befehl 
auch genutzt wird. 

2. In oben genanntem Pro¬ 
gramm werden Texte in eng¬ 
lischer Sprache verwendet. 
Muß das denn sein ? Ich gehe 
davon aus, daß der größte 
Teil Ihrer Leser genau wie 
ich der englischen Sprache 
nicht mächtig ist, und möch¬ 
te daher auch nicht immer 
mit dem Wörterbuch die ein¬ 
zelnen Sätze übersetzen müs¬ 
sen. Verlangen Sie von den 
Autoren deutsche Texte. 

3. Seit einiger Zeit drucken 
Sie Texte in Miniaturschrift 
ab. Das ist meiner Meinung 
nach eine Zumutung. Es 
fuhrt oft zu Verwechslungen 
Z. B. zwischen Null und gro¬ 
ßem O, oder Eins und klei¬ 
nem i. Teilweise habe ich 
schon die Lupe zur Hilfe neh¬ 
men müssen, um den Unter¬ 
schied zu erkennen. Sie ope¬ 
rieren mit dem Argument, 
daß dadurch mehr Program¬ 
me abgedruckt werden kön¬ 
nen. Ich habe allerdings den 
Verdacht, daß Sie auf diese 
Weise den Umsatz Ihrer Da- 
taboxen erhöhen wollen. Ich 
meine, hier wäre weniger — 
mehr. 

Rudolf Bauer, 
Einhausen 

Zu diesen Kritikpunkten 
möchten wir folgendes an¬ 
merken: 

Zu 1) Der AUTO-Befehl ist 
eine schöne Sache, jedoch 
nicht immer sinnvoll, wenn 
es darum geht, Listings zu 
programmieren. Die meisten 
Leser wollen unter anderem 
durch das Eingeben der Li¬ 
stings etwas über die BA- 
SlC-Programmierung ler¬ 
nen, und dies kann man eben 
besser, wenn man das Li- 
sting gedanklich durcharbei¬ 
tet, als wenn man es im Ma¬ 
schinentempo eintippt. Falls 
irgend möglich werden wir 
die Zeilen natürlich ablau¬ 
fend drucken. 

Bei manchen Programmen 
läßt sich aus Gründen der 
Einbindung von Unterpro¬ 
grammen eine automatische 
Zeilennumerierung nicht 
durchführen. 


10 PC 6’89 



Zu 2) Natürlich ist es besser, 
wenn in Programmen deut¬ 
sche Texte Vorkommen, die 
keiner Erklärung bedürfen, 
allerdings halten die meisten 
Programmierer Englisch für 
sinnvoller und variabler. 
Hier läßt sich von unserer 
Seite kaum ein Einspruch er¬ 
heben. 

Außerdem gibt die englische 
Sprache so manchem Spiel 
ein bißchen Pep, zumal sich 
viele Begriffe im Computer¬ 
bereich nur spärlich in 
deutsch umschreiben lassen. 

Zu 3) Die Kleinschrift 
kommt eigentlich recht sel¬ 
ten vor, und zwar dann, 
wenn wir ein langes Pro¬ 
gramm haben, was diesen 
Ausdruck durch seine Quali¬ 
tät rechtfertigt. Unsere Li- 
stings werden über Laser¬ 
drucker ausgedruckt und 
sind eigentlich auch im 
Kleinformat recht gut lesbar. 

(Red.) 

Betreff NLQ-401 am PC 
(Heft 3/89) 

Wesentlich einfacher und 
billiger, weil ohne das Pro¬ 
gramm “Wordstar", kann 
man auf folgende Weise Vor¬ 
gehen: Man braucht das 
Buch “Großes PC-Drucker 
Buch “ von Data Becker und 
die zugehörige Diskette. 
Dort sind alle nötigen Pro¬ 
gramme und Tricks enthal¬ 
ten, um alle deutschen Son¬ 
derzeichen und die Grafik¬ 
zeichen, die dem IBM-Satz 
entsprechen, ausdrucken zu 
können. Die Routine wird 
dann über Autoexec.bat bei 
jedem Start automatisch ge¬ 
laden und steht zur Verfü¬ 
gung. 

B. Frilling, 
Bottrop 2 

Vielen Dank, für diesen Hin¬ 
weis. Auch hier kann man 
sehen, das eine kleine Hilfe 
große Auswirkungen hat. 

(Red.) 

Einsprung ins CPC 6128 
ROM 

Per Zufall habe ich einige 
Einsprungadressen in das 
ROM des CPC 6128 heraus¬ 
gefunden, die dem einen 
oder anderen vielleicht beim 
Verschönern seines (BASIC-) 
Programms nützlich sein 
könnten. 


CALL &BABA Verschiedene 
“OUT-Befehle “ bewirken 
eine Veränderung des Cur¬ 
sors. Als Endergebnis fehlt 
dem CPC schließlich jegli¬ 
che Befehlssyntax. 

CALL &BAEO, CALL 
&BAOA, CALL &BADA. 
Diese CALLs erzeugen un¬ 
terschiedlichste “Schriften “, 
abhängig vom Bildschirm¬ 
mode. 

Alexander Saur, 
Wernau 


Probieren geht über Studie¬ 
ren, so sagt es uns ein altes 
Sprichwort. Dies trifft insbe¬ 
sondere auf zufälliges “Her- 
umCALLen“ zu. Manchmal 
ergeben sich die wunderbar¬ 
sten Effekte. Aber meistens 
“stürzt“ der Rechner einfach 
nur ab, ohne Besonder¬ 
heiten. 

(Red.) 


Irrtum im Stop Press 

Leider liegt ein kleiner Irr¬ 
tum bezüglich des Program¬ 
mes “Stop Press“ für den 
Amstrad CPC vor. Es gibt 
seit Anfang 1987 den “AMX 
Pagemaker“, den Sie bereits 
in Ausgabe 4/87, Seite 52 te¬ 
steten. Der “AMX Pagema¬ 
ker“ ist “baugleich“ mit 
“AMX Stop Press “. 

Des weiteren hätte ich fol¬ 
gende Frage bezüglich des 
Pagemakers: Gibt es ein 
ähnliches Programm, das 
um die 200 DM kostet für den 
PC, und wenn ja, wo kann 
ich es beziehen ? 

M. Drexelius, 
Usingen 1 


Zu Ihrer Anfrage: Das Pro¬ 
gramm “Stop Press“ ist zwar 
fast “baugleich“ mit dem 
“AMX-Pagemaker“, aber es 
sollte aus Neuerscheinungs¬ 
gründen besprochen werden. 
Leider können wir Ihnen 
kein Programm nennen, das 
für den PC erhältlich ist und 
200 DM kostet. Vergleich¬ 
bare Programme kosten min¬ 
destens das Doppelte. Even¬ 
tuell sind ähnliche Program¬ 
me auf dem PD-Markt er¬ 
hältlich. 

(Red.) 
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Hilfe beim Saven unter 
BASIC 

Sie haben sicher schon ein¬ 
mal versucht, einen Teil ei¬ 
nes BASIC-Programms ab¬ 
zuspeichern. Vielleicht sah 
das bei Ihnen so aus: 

1) gesuchte Stelle mit LIST 
suchen 

2) mit DELETE -Zeilennum¬ 
mer Zeilen dpvor löschen 

3) mit DELETE Zeilennum¬ 
mer-Zeilen danach löschen 

4) mit SAVE“NAME“ Stelle 
abspeichern. 

Sehr umständlich, oder? 
Aber es geht auch anders: 

1) Stelle mit LIST suchen 

2) folgende Zeile eingeben: 

0PEN0UT “NAHE“:LIST zlnr- 
zlnr, #9:CL0SE0UT 

Dies ist doch schon ein klein 
bißchen einfacher? Und man 
kann danach gleich weiter 
programmieren, falls man 
die Stelle aus einem noch un¬ 
vollständigen Programm ab¬ 
speichert. 

Marc Gebauer, 
Sonnenbühl 3 

Auch hier sei unser Dank ge¬ 
wiß. Dieses kleine Pro¬ 
gramm wird so manchen 
eine große Hilfe sein. 

Modifikation zu MAGIC 
SCREEN (Heft 7/88) 

Die Modifikation für “MA¬ 
GIC SCREEN “ ist Jur Besit¬ 
zer eines Zweitlaufwerkes 
geeignet, es stellt einen an¬ 
deren Menüpunkt zur Verfü¬ 
gung, der mit der Taste D ’ 
(Drive) aufgerufen wird 
Nach Drücken der Taste ’D ’ 
erscheint hinter Drive ein 
’B es wurde also auf Lauf¬ 
werk B umgeschaltet. Durch 
ein nochmaliges Drücken er¬ 
scheint wieder ein ’A ’ und 
das Standardlaufwerk ist 
wieder aktiv. Folgende Zei¬ 
len sind im Listing wie folgt 
zu verändern: 

110 MODE 0:PRINT “Bitte war¬ 
ten. ...":MEMORY 
&3FFF:DEG:PL0T -8,0,1:B0RDER 
0:driv$=“A“ 

305 PRINT pl“D“p"-Drive “ 

3125 LOCATE 11,16: PRINT driv$; 
325 IF a$=“D" then IF driv$=“A“ 
then driv$=“B“: | B:G0T0 315 
860 CALL &BB18: MODE 2: CAT: CALL 
8cBB18: MODE 1: G0SUB 980: RETURN 

Kai Jürgen Gerstner, 
Neuwied 23 

Vielen Dank auch im Namen 
der Leser für die Anpassung. 


AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 

JOYCE-Zubehör: 


Farbband 8256/8512 

12,90 

Papierführung 

29,50 

3“-Markendisketten 10 St. 

59,90 

Farbband 9512 

17,95 

Typenräder 9512 

25,00 

Typenräder SD15 

25,00 

Diskettenbox f. 12 Disk. 

9,95 

Diskettenbox f. 40 Disk. 

14,95 

Diskettenbox f. 80 Disk. 

18,95 

PC-Zubehör: 


5 1/4“-Disketten 2D 10 Stück 

6,95 

3 1/2“-Disketten 2DD 10 Stück 25,00 

20-MB-Filecard 

698,00 

Druckerkabel par. 1,8 m 

17,70 

STAR LC10 (deutsch) 

570.00 

AMSTRAD LQ3500 

780,00 

Druckerständer 

29,95 

Farbband LC10 

15,95 

Farbband NEC P 2200 

16,95 

Abdeckhaube Tastatur 1512/1640 

16,95 

Abdeckhaube Monitor 1512/1640 

39,50 

Genius Dyna Mouse 

135,00 

Laufwerk 3 1/2“ 

220,00 

Joy-Stick 

29,95 

Haftetiketten endlos 100 Stück 

855 

TextMaker 2.0 

248,00 

PC 1512 1 LW/Mono 1.170,00 

PC 1640 2 LW/Mono 1.798,00 

24-N .-Drucker LQ5000 1.150,00 

Weitere Preise auf Anfrage! 

Preisliste gegen Rückporto. 

Lieferung per Nachnahme oder Voraus¬ 

kasse (Versandkostenpauschale DM 11,40 

pro Paket). 


Kosmalla & Partner 

Datenverarbeitung GmbH 

Bliesstr. 5, 6700 Ludwigshafen 

Tel.: 06 21-51 9749 



Eine Bitte 
an unsere 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 


Sie vermeiden damit 
unnötige Verzögerun¬ 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 


Ihre DMV- 
Versandabteilung 
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AMS-Line- 

der direkte Draht zur Firma AMSTRAD 


Der PCW - das Sprachgenie 

Die Firma Locomotive Systems hat wie¬ 
der zugeschlagen! Nach dem Erscheinen 
der Datenbank LocoFile und dem gleich¬ 
zeitigen Update von LocoScript auf 2.24 
bzw. 2.25 ist jetzt mit neuen Druckertrei¬ 
bern für 24-Nadel-Drucker (z.B. AM¬ 
STRAD LQ 3500 und LQ 5000) dafür 
gesorgt worden, daß Sie den kompletten 
(!) Zeichensatz von LocoScript 2 auch 
auf Ihren externen Drucker ausgeben 
können - eine “saubere Sache“. 

Endlich können Sie bei Ihrer Korrespon¬ 
denz mit Genosse Gorbatschow jetzt mit 
einem tadellosen Schriftbild glänzen oder 
auch nur Ihr Wörterbuch Griechisch — 
Deutsch auszudrucken. 

Von Französisch über Spanisch bis zu 
Türkisch ist alles möglich, lediglich mit 
Arabisch, Chinesisch oder ähnlichem 
kann Ihr kleiner Freund noch nicht die¬ 
nen. Aber wer weiß - vielleicht kommt 
ja irgendwann einmal LocoScript 3 oder 

47?! 

Die Druckertreiber können Sie als “24 
Pin Printer Drivers Disc“ über die Firma 
Wiedmann beziehen. Wichtig! Geben Sie 
an, für welches Gerät (PCW 8xxx oder 
PCW 9512) Sie die Druckertreiber benö¬ 
tigen. 

Anschrift: 

Wiedmann Unternehmensberatung 
Korbiniansplatz 2 
D-8045 Ismaning 
Tel. 089 - 965029. 

Musik ...2 ...3 ...4 
- PCW mit MIDI-Interface 

Das Computerzentrum Ostwestfalen & 
Lippe bietet verschiedene Ausführungen 
des EMR MIDI-Interfaces für die PCW- 
Reihe an. Der Preis für das Interface liegt 
zwischen 400 DM und 500 DM; der Se- 
quencer kostet 240 DM, das Softwarepa¬ 
ket ProPerformer zirka 300 DM. 

Mit diesen Peripheriegeräten können Sie 
Ihrem PCW auch noch das Singen bei- 
bringen. 

Übrigens bietet das Computerzentrum 
nicht nur musikalische Spezialitäten. Das 
Softwareangebot reicht von Standardpro¬ 
grammen, wie LocoScript-Zusatzpro- 
grammen, oder Flipper - einem Pro¬ 
gramm, das schnelles Wechseln zwi¬ 


schen LocoScript und CP/M gestattet, 
bis zu Speziallösungen für Arztpraxen, 
Anwälte. Kleinbetriebe usw. Näheres 
unter folgender Anschrift: 

Computerzentrum 
Ost Westfalen & Lippe 
F. Obermeier 

Bünder Str. 20, D-4972 Löhne 1 
Tel. 05732-3246. 

CAD mit Lightpen auf dem PCW 

Bereits seit längerer Zeit ist das “Tro- 
jan’s Cadmaster Pack“ für den PCW 
auch in Deutschland erhältlich. 

Die Firma Wiedmann (Anschrift s.o.) 
bietet dieses Programm jetzt auch mit 
deutscher Anleitung an. Das “Paket“ ent¬ 
hält neben der leistungsfähigen Software 
einen Lightpen, der am Expansionsbus 
des PCW angeschlossen wird. Die Bedie¬ 
nung erfolgt durch Anwählen von Sym¬ 
bolen, so daß man bereits nach kurzer 
Zeit auch komplizierte Grafiken erstellen 
kann. Das Programm nutzt alle Möglich¬ 
keiten der PCW-Grafik aus, was bei ei¬ 
ner Auflösung, die ja in etwa der PC- 
Hercules-Grafik entspricht, zu erstaunli¬ 
chen Resultaten führt. 

Nicht nur sauber, ... 

Wer sein 3“-Laufwerk einer Generalrei¬ 
nigung unterziehen will, kann beim oben 
genannten Computerzentrum (F. Ober¬ 
meier) Reinigungsdisketten beziehen. 
PCW-Besitzer bestellen am besten auch 
gleich ein Reinigungs-Set für Ihren 
Drucker mit. Dieses Set besteht aus ei¬ 
nem speziellen Reinigungs“farb“- 
band, Reinigungstüchern und einer 
Druckluftdose, damit Sie auch den 
Schmutz in den unzugänglichsten Stellen 
erreichen. Das Set kostet etwa 60 DM. 
Die Nadeln werden es Ihnen danken, und 
die Ausdrucke erstrahlen wieder in alter 
Frische. Entsprechende Sets werden 
auch für andere Drucker angeboten. 

Harte und weiche Scheiben für die PCs 

Die Firma VORTEX ist für gute Lauf¬ 
werke und Festplatten bekannt. Nicht nur 
für PCWs und den PPC 512, sondern 
auch für die PCs 1512, 1640 und 2086 
werden als “System 2000“ externe Fest¬ 
platten angeboten. Für alle, die “das Ge¬ 
häuse voll haben“, so daß eine Filecard 


nicht mehr unterzubringen ist, bietet sich 
hier eine Alternative für eine friedliche 
PC-Aufrüstung. 

Sollten Sie dann auch noch ein zweites 
Diskettenlaufwerk (3,5 Zoll mit 720 
kByte) extern anschließen wollen, bietet 
hierfür die Firma Lischka fertige Lösun¬ 
gen an. Die Laufwerke werden über eine 
Adapterplatine an den internen Stecker 
für die zweite Floppy angeschlossen; an¬ 
stelle eines der Slotbleche kommt ein 
Blech mit einem eingebauten Stecker, auf 
den das Kabel der externen Floppy aufge¬ 
steckt wird. Durch diese Vorgehenswei¬ 
se bleibt Ihr PC nach wie vor “transpor¬ 
tabel“, da Sie das “Anhängsel“ ohne gro¬ 
ße Umbau-Aktionen auch wieder entfer¬ 
nen können. 

Nähere Informationen zu den vorgestell¬ 
ten Produkten erhalten Sie direkt bei 

VORTEX 
Falterstr. 51-53 
D-7101 Flein 
Tel. 07131 - 50880 

bzw. 

Lischka Datentechnik 
Hochstr. 22 
D-5173 Kerken 2 
Tel. 02833 - 4058 bzw. 4059. 

Externe Laufwerke für die 
PC-2x86-Geräte 

Wie bereits in der AMS-Line in der Aus¬ 
gabe 2/89 angesprochen wurde, gibt es 
für die “neuen“ PCs von AMSTRAD ex¬ 
terne Laufwerke. Am interessantesten 
dürften in diesem Zusammenhang die 
5,25-Zoll-Laufwerke sein. Die Laufwer¬ 
ke können Sie über Ihren AMSTRAD- 
Systemhändler zum Preis von 499 DM 
beziehen. Die Bezeichnung der Laufwer¬ 
ke ist: 

FD9: 3,5-Zoll-Laufwerk, 1,44 MByte 
FD10: 5,25-Zoll-Laufwerk, 360 kByte 
FD11: 5,25-Zoll-Laufwerk. 1,2 MByte. 
Die Installation der Laufwerke erfolgt 
beim PC2286 und PC2386 über das Pro¬ 
gramm SETUP, beim PC2086 gibt es da¬ 
für einen speziellen DEVICE-Parameter 
SETFD. Die Beschreibung des Aufrufs 
finden Sie im Handbuch im ersten Teil. 
Seite 8 bis 5 und folgende. Eine Einstel¬ 
lung in der CONFIG.SYS über den 
DRIVPARM-Befehl ist allerdings eben¬ 
falls möglich. 
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Service—i 


Die Service-Ecke 

von AMSTRAD und ANDERS 


Ab der Ausgabe 7/89 startet AM¬ 
STRAD mit dem bundesweiten Ser¬ 
vicepartner ANDERS eine regelmä¬ 
ßige Sevice-Ecke für unsere Leser. 
Betreut wird diese redaktionell von 
Ulrich Büker. Er stellt sich und die¬ 
se neue Rubrik selbst vor. 

Hallo - oder besser: “Gut Amstrad“! 
Mit diesem familiären Gruß und fri¬ 
schen Schwung gehen beide Unterneh¬ 
men an eine weitere Verbesserung der 
Servicequalität. Viele, fast zu viele 
Fragen rund um das Servicenetz, die 
Abwicklungen von Reparaturen, War¬ 
tezeiten, Rückfragen, Umrüsten etc. 
haben sich bis heute angestaut. 

Hier wollen wir ab sofort helfen, allge¬ 
mein interessante Fragen über Leser¬ 
post aufzugreifen und zu beantworten. 
Das nützt der gesamten AMSTRAD- 
Familie und jedem einzelnen. So ganz 



nebenbei werden dabei auch nach und 
nach mal die Servicespezis aus beiden 
Unternehmen vorgestellt. Dann wissen 
Sie übigens, wem Sie im Wartungsfall 
Ihren Computer an vertrauen. Auch ein 


gelegentlicher Blick hinter die Kulissen 
ist erlaubt! 

Ist das ein Service? 


Zu mir selbst: 37 Jahre alt. Dipl.-Soziologe, 
mit eigenem Büro als Kommunikationsbera¬ 
ter und Fachjoumalist. Spezialisiert unter an¬ 
derem auf Wartungsfragen, Servicekonzep¬ 
te, Anwendcrprobleme usw. und den richti¬ 
gen Umgang mit den Kunden. Also mit 
Ihnen! 

Aber genug der Vorrede. Los geht’s mit Ih¬ 
ren Fragen und Leserbriefen rund um das 
Thema Service. Ab sofort und an diese An¬ 
schrift: 

Service-Ecke ANDERS/AM STR AD 
Redaktion Ulrich Büker 
Postfach 11 25 
6752 Winnweiler/Pfalz 



dBINT 

DIE Erweiterung für dBASE III und dBASE III Plus. 
Sämtliche DOS-Funktionen nun auch in dBASE 

• Bildschirmfenster scrollen 

• Direktes lesen und beschreiben des Bildschirms 

• Window-Technik 

• Cursor-Manipulationen 

• Tastatur-Manipulationen 

• File- und Disk-Manipulationen 

• Direktes Handling der Schnittstellen 

• Datenfernübertragung 

• Maus 

• und vieles mehr 

Für sämtliche dokumentierten DOS-Interrupts und deren 
Funktionen, sind fertige dBASE-Proceduren auf Diskette 
vorhanden und mit allen Variablen und Übergabe-Para¬ 
metern im Handbuch ausführlich beschrieben. 
Umfangreiches deutsches Handbuch. 

Ein unbedingtes MUSS für jeden Programmierer. 

dBINT ab sofort lieferbar auf 5W und 3 V 2 - Disketten. 

für DM 98.- (sFr.84.-V ÖS 700.--) 

Unverbindliche Preisempfehlung 

Lieferung gegen Nachnahme. Verrechnungs-Check oder Vorauszah¬ 
lung auf Kto. SKA. CH-8610 Uster |z.G. Almat-Data / Kto. 604'776-71). 
zuzüglich Versandspesenanteil von DM 8.- |sFr.7.-/ ÖS ED.-). 

ALMAT-ZM7>I 

Brunnenstrasse 1 
CH 8610 USTER 
Tel. 01/94145 72 

PS. Version für Turbo-ßasic ab Mai 1989 lieferbar. 


Neue Speichererweiterung für CPC 

• RAM-Erweiterung 64.128, 256 oder 512K für alle CPCs 
Alle Versionen nachträglich auf Maxlmal-Version aulrüslbar 

• optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 

• Patchprogramm für CP/M 2.2 (63K CP/M), Endlich lauten dBase, Mulfiplan und Wordstar 

• Patchprogramm für CP/M Plus. CP/M Plus auch für CPC 464/664 

• resetfeste RAM-Disc (maximal 448K) für CP/M 2.2 und CP/M Plus 

• resetfeste RAM-Disc unter BASIC (nur bei EPROM-Version) 

• 100% kompatibel zu dk'tronics RAM-Erweiterung und Silicon-Oisc 

• Anschluß überden Expansionsport (kein Eingriff in den Rechner nötig) 

• geringe Abmessungen (mit Gehäuse: 160 x 83 x 20 mm) durchgeführter Erweiterungsbus 
RAM-Erweiterung mit Software lür CP/M 2,2 und CP/M Plus aul 3"-Diskette 
(wahlweise auch 3-5“- oder 525“-Diskette) 

Preise: ohne RAMs.99,- 0M 64 KByte.149,- 0M 128 KByte.199 - DM 

256 KByte. .299,- 0M 512 KByte.449- 0M 

Aufpreis für zusätzliche EPROM-Sockel und Software im EPROM 49.- DM 


X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Systemlaufwerk, das anstelle eines 3“-Zwelllaulwerks am CPC 664/6128 
mil eingebautem oder am CPC 464 mil zusätzlichem 3“-Controller betrieben wird. Das X-DDOS- 
Betriebssyslem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC, CP/M 2.2 und CP/M Plus. 

• Die RAM-Belegung von X-DDOS Ist nahezu 100% kompatibel zu AMSDOS. 

‘ Es kann softwaremäBig zwischen X-DDOS und AMSDOS umgeschaltet werden. 

• Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Plus milgeliefert. 

• Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mil 64K RAM-Erw. laulfähig 

• Die 224-KByte EPROM-Karte hat bei installiertem X-DDOS noch eine Restkapaziläl von 
208 KByte. 

‘ Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig isl, wurde völlig aul 
einen Kopierschutz verzichtet. 

• Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden. 


X-DDOS-EPROM, Software 8 Beschreibung 99,- DM 

224-KByte EPROM-Karte, X-DDOS, Software 8 Beschreibung 239, - DM 

5.25“ oder 3.5“ X-Laufwerk, 224-KByte EPROM-Karte. X-DDOS. Softw. 8 Besehe 589, - DM 

5.25" oder 3.5” X-Laufwerk. RAM-Erw. ohne RAMs, X-DDOS. Soflw. 8 Beschr, 589, - DM 


EPROM- Karte 224 KByte für alle CPC 

• Für die EPROM-Typen 2764, -128, -256 
" ROM-Nummern 0-15 frei wählbar 

• 7 Sockel 

' Bei 27256 zwei ROM-IMummern pro Sockel 

• Durchgeführier Expansionsport 

■ Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Daleien) 
Fertiggerät für CPC 464/664 DM145,- Fertiggerät für CPC 6128 DM169,- 

Modul-Software auf 3"-Disketto DM 95,- 

Zubehör für EPROM-Karten 


EPROM 2764 DM 7.50 Prolexl-EPROM DM124- Maxam EPROM DM124,- 

EPR0M 27128 DM 8,50 Promerge PlusEPROM DM114,- Ulopia DM 94- 

EPROM 27256 DM11,50 X-DD08EPR0M DM 99- Alpha-ROM DM35,- 

EPR0M 27512 DM 21,50 Time-ROM (batlenegepufferle Echtzerluhr) + EPROM DM 135.- 


DOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 062 02 7 714 17 
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Public Domain 
Fundgrube oder 
amschkiste 


Entdeckungsschwimmen 
im Software-Pool 


Kaum ein Bereich in der Software hat in der letzten Zeit so 
für Aufregung auf dem Computermarkt gesorgt wie die Public 
Domain. Doch was steckt eigentlich hinter diesem englischen, und 
damit nicht immer gleich verständlichen Ausdruck? Wir haben 
uns für Sie einmal im großen Pool dieser Software-Art umge¬ 
schaut und zu klären versucht, ob man hier ins Schwimmen ge¬ 
rät oder sich ohne viel Geldeinsatz über Wasser halten kann. 


Zuvor wollen jedoch erst einmal 
ein bißchen näher auf die Begriffe 
Public Domain’ und 'Shareware’ 
eingehen und erklären, was es ei¬ 
gentlich damit auf sich hat. 

“Der Autor verzichtet... 

...auf das Copyright und die 
Vermarktung seines Program¬ 
mes“ — so steht es geschrie¬ 
ben, wenn jemand sein selbst¬ 
erstelltes Programm in die Pu¬ 
blic Domain freigibt. Warum 
aber verzichtet dieser jemand 
bewußt auf Geld, Gold, Lambor¬ 
ghini (italienische Automarke) und 
Bambina (italienische Freundin)? 

Als einfacher Computerbesitzer stellt 
man sich das Programmiererleben im¬ 
mer noch als Paradiesplatz an der Son¬ 
ne vor. 

Bei den 'richtig’ kommerziellen Pro¬ 
grammen ist dies teilweise auch noch 
wahr, allerdings ist hier die Konkur¬ 
renz schon enorm groß, so daß die Pro¬ 
grammierung des 'ultimativen Pro¬ 
grammes’ zu einem harten Existenz¬ 
kampf ausarten kann. 

Programmierer, die sich auf dem 
Markt noch keinen Namen gemacht ha¬ 
ben, sind im kommerziellen Bereichen 
fast chancenlos, wenn nicht der be¬ 


rühmte Stern am Himmel blinken soll¬ 
te. Und hier tritt die Public Domain 
endlich auf. Zusammen mit anderen 
Programmierern gibt man eine Disket¬ 
te heraus, auf der sich für einen Com¬ 
putertyp die verschiedensten, oder 
auch vom Thema her gleiche Program¬ 
me befinden. 

Einzige Vorgabe ist, wie schon oben 
angeschnitten, der Programmierer ver¬ 
zichtet auf sein Copyright, das er auto¬ 
matisch mit dem Erstellen (Program¬ 
mieren) des Programmes erwirbt. 
Zweitens verzichtet der Programm- 
autor darauf, sein Programm kommer¬ 
ziell zu vertreiben, er gibt es kostenlos 
an die breite Computer-Fangemeinde 
weiter. Diese (zu denen Sie sich auch 
rechnen können, falls Sie eine oder 
mehrere Disketten aus der Public Do¬ 
main erworben haben) darf dann die 
Diskette ungehindert, das heißt ohne 
jede weitere Genehmigung, kopieren 
und weitergeben. Ein Umstand, der bei 
kommerziellen Programmen zum 
’Auf-die-Nase-Fallen’ führen kann. 

Kostenlos?? 

Stimmt doch gar nicht! 

Dieser offensichtliche Widerspruch 
von oben (kostenlos —Disketten er¬ 
worben) ist eigentlich gar keiner. Denn 


wenn Sie PD-Disketten (P wie Public, 
D wie Domain, diese Abkürzung hat 
sich im Lauf der Zeit, also seit es die 
PD gibt, eingebürgert) bestellen, so 
müssen Sie zumindest den Grundwert 
bezahlen, also die Diskette sowie di¬ 
verse Auslagen des PD-Anbieters. 

Die Preise sind allerdings 'sehr zivil’, 
sie bewegen sich pro Diskette zwischen 
DM3,- und DM20,-. 

Mit kleinem Budget kann man also in 
der Public Domain schon eine Menge 
’ Futter’ für sein tastaturunterstütztes 
Rennpferd bekommen. 


Was sind das für Programme? 


Nun, hier findet man Anwendungen al¬ 
ler Art, Spiele aller Art, Utilities aller 
Art, kurz gesagt ein Sammelsurium al¬ 
ler möglichen Programme, die wieder¬ 
um in verschiedenen Computerspra¬ 
chen vorliegen können. 

Die Programme selbst sind auf dem 
letzten Stand und soweit wie möglich 
lauffähig gemacht (die nicht lauffähi¬ 
gen werden vom Autoren genau be¬ 
schrieben, meistens findet man sogar 
Anleitungen, wie man sie lauffähig ma¬ 
chen kann). 

Zu allen Programmen werden ausführ¬ 
liche Dokumentationen mitgeliefert, 
die dem Anwender eine gute Hilfe 
beim Arbeiten mit dem PD-Programm 
sind. 

PD-Programme gibt es für fast jeden 
Computer, wobei die Hauptlast aller¬ 
dings bei den 16-Bit-Rechnem wie 
PC/XT/AT, Atari ST und Amiga liegt. 
Allerdings findet auch der PCW- oder 
CPC-Besitzer noch interessante Pro¬ 
gramme auf dem PD-Markt. 

PD und Shareware — wo liegt 

der Unterschied? 

Die zweite Gruppe von Software, die 
ihren Bekanntheitsgrad wesentlich er- 
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Zubehör 


für CPC 664,6128 
Incl. Kabel 


Konsole CPC 
Monitore 
DM P-Drucker 
Floppy's 


Zahlung per Nachnahme oder Vorauskasse {Ausland per Scheck) 
Versandkostenpauschale (Inland 7,80 DM /Ausland 19,80 DM). 
Infoanforderung nur mit frankiertem A4-Rückumschlag und DM 2.- 

07191/1528-29 od. 60076 


STAR-DIVISION II dktronics CPC 


PROWORT 219,- 

PROTEXT: 

• 3“-Diskette 94,— 

•EPROM 124,- 

MAXAM (Z80 Entw.): 

• 3"-Diskette 94,- 

■ EPROM 124,-- 

MAXAM II 239,- 

PROSPELL: 

• engl. Vers. 50,— 

• dtsch. Vers. 70,— 

Dtsch. Handbuch: 
...PROTEXT 19,80 
...MAXAM 19,80 

ADRESCOMP 58,- 

DATENREM 68,- 

FAKTUREM 78,- 

FIBUKING 136,- 

LAGDAT 68,- 

TEXTKING 78,- 

COMFORM 48,- 

ETATGRAF 58,- 

FIBUCOMP 98,- 

KALKUREM 78,~ 

PROFIREM 136,- 

VOKABI 58,- 


PROWORT 219,- 

PROSPELL 79,- 

MAXAMII 239,- 

ADRESCOMP 58,- 

COMFORM 48,- 

DATENREM 68,- 

ETATGRAF 58,- 

FIBUKING 136,- 

LAGDAT 68,- 

PROFIREM 136,- 

VOKABI 58,- 

FAKTUREM 78,- 

KALKUREM 78.- 


LocoScript2 148,- 

LocoMail 1 128,- 

LocoMail 2 211,- 

LocoSpell 2 168,- 

L. Script + Spell 248,- 
LocoFile 168,- 

LocoFont 89,- 

Multiplan 198,— 

dBase II 198,- 

Tassword 8000 148,- 


STAR-WRITER I 98,- 
DATEI-STAR 90,- 

Supercopy 65,- 

Mastercopy 69,- 


Diamant von Rabenfels (g) 
Drachenland (t) 

Reise durch die Zeit (t) 
Sherlock Holmes (g) 

Auftrag in der Bronx (g) 

Insel der Smaragde (t) 

Das Pharaonengrab (t) 

(t - text; g - Grafik; alle in 
deutsch) 

je Kassette 39,- 

je Diskette 49,- 


Text ■ Datenbank • Grafik • 
Etikettendruck • Tabellen¬ 
kalkulation • engl. Handb. • 

Komplett für nur 98,- 


ROMBOX (CPC) 118,™ 
VIDI (CPC) 348,- 
VIDI (Joyce) 378,- 
VIDI (IBM-KOMP.) 448,- 

Headline 198,-- 

RH-DAT (Datenb.) 98,— 
Turbo Pascal E. 225,- 
DR-Graph 198,- 
DR-Draw 198,- 
Datamat (Datenb.) 99,- 
Prompt (Dateiprg.) 69,- 
Prompt Druck 39,- 
MICA (CAD) 198,— 
Vokabeltrainer 59,- 
Verbentrainer 49,-- 
Datamat 99,-- 

TurboAdress 98,- 
Turbo Faktura 148,- 
varDat 199,- 

Basic Compiler 139,- 
Comform 59,- 

Comac Litbox 148,-- 
COMAC-k«**« Piut168,— 
Vereinsverwalt. 198,— 
Schreiblehrgang 89,- 
PSE2 129,- 

Fleetstr. Edit. 199,- 
WS-Tuner 

für Word Star 49,80 
Joyce-Mouse Pack 

benötigt RS232 178,- 


Zweitlaufwerke CPC: 
(aus eigener Produktion) 
3"-Laufwerk 298,- 
3,5”-Laufwerk 398,- 
51/4"-Laufwerk 448,- 
... AMSTRAD 
FDl* 299, 

DDl (mltContr.) 499,— 
Anschlußkabel (•) 48,- 
Zweitlaufwerk Joyce: 
(aus eigener Produktion) 
3,5"-Laufwerk 348,- 
51/4”-Laufwerk 448,— 

... AMSTRAD- 

FD4 499,- 


II Schnittstellen 


von AMSTRAD 
Joyce RS232 198,- 

CPC RS232 org. 198,- 
... von Schneider 148,- 


... Joyce 

29,80 

... PC 1512 

29,80 

... PC 1640 

29,80 

... Monitor PC 

19,80 


NLQ 401 

Star NL/LC10 

DMP-Drucker 

LQ-Drucker 

Joyce-Drucker 

PCW95l2-Dr. 

Competit. Pro 
... durchsichtig 
Quickshot II 
Schneider 

Druckerkabel CPC 


für 464/664: 

Speech Synth. (ROM) 148,- 
Speech Synth. (Kas.) 98,- 
Lightpen (Kas.) 68,- 

64 k Erweiterung 168,- 

256 k Erweiterung 348,- 

256 k Silicon Disk 378,- 

Uhrenmodul 128,- 

für 6128: 

256 k Erweiterung- 348,- 

256 k Silicon Disk 1 378,- 

64 k Silicon Disk- 168,- 

Speech Syn. (ROM)- 148,- 
Lightpen (ROM)- 98,- 

Uhrenmodul 1 119,- 

Adapter (♦) 39,- 


Steuerung Ihres CPC über 
den Bildschirm • mit hervor¬ 
ragendem Grafikprogramm 
• org. engl. Handbuch ■ 

nur 278,- 
...Handbuch deutsch 
29,80 


Seitengestalter 
Erlaubt Herstellung von Zei¬ 
tungen. Poster und Hand¬ 
zettel • benötigt 64k Zusatz¬ 
speicher bei 464 und 664 


Alles für Ihren CPC 


(nur dk'tronlcsll) • mit orginal 
englischem Handbuch 
Stop Press 198,- 

St.Pr.+ AMX Maus 348,- 
...Handbuch deutsch 
19.80 


Stop Press Utilities 


Extra t 

Jede Menge neue Fontsl 

129,- 


Marconi-Trackerball jetzt auch 
für den CPCI Mit dem 
hervorragenden Grafikpro¬ 
gramm EASI-ART von Micro- 
draw. 

komplett für nur 298,- 

...komplett mit StopPress 
Paketpreia 448,- 


Gerdes Maus 


Ähnlich AMX-Mouse für CPC. 
Mit Grafiksoftwarel 179,-- 


(Kopierprogramm) 
Vollständige Kopiereinrich¬ 


tung für Kassetten und Disk. 

Superl! 178,- 

Adapter für 6128 39,- 


Dart - Scanner CPC 


Scannen von Bildern und 
Grafiken In Verbindung mit ei¬ 
nem kompl. Grafikprogramm. 
Sie benötigen dazu einen 
DMP 2xxx/3xxx Drucker. Mit 
deutscher Anleitung I 
komplett für nur 249,— 

Adapter CPC 6128 39,- 


BTX-Modul 


Jetzt auch für CPC'sl Erlaubt 
den Anschluß Ihres CPC's an 
den BTX- Rechner der 
Bundes- Post I 398,- 


Schallpläne CPC 


CPC 464/664 
CPC 6128 
CTM644 
CTM 640 
GT 64/65 


■ Mini Office II 

■ AMX-Mouse 

■ StopPress 


Alles für Ihren Joyce 


FISKUS 1987-1988(89) 
Lohnsteuer-Jahresausgleich 

für nur 139,- 


STATISTIK-STAR 

Grafik- und Stailstikprgamm 

nur 98,- 

STAR-MAIL 

Erweiterung von LocoScriptl 
Ausdruck auf Fremddruckern 
Serienbrieferstellung ... 

nur 98,- 

DATEI-STAR 

Dateiverwaltungssystem 

nur 98,- 

MAILING-SYSTEM 

Soflwarepaket: STAR-MAIL 
♦ DATEI-STAR 189,- 
STAR-BASE 
Datenbanksystem 198,— 
BUSINESS-STAR 
Auftragsbearbeilung mit: 
Fakturierung / Lager/ Mahn¬ 
wesen / Datenverwaltung ... 

298,- 


Monitorverianger. 29,50 
Bildschirmfilter 59,- 

200 Endloset iket. 16,- 


... MAXELLCF2 ID 89.- 
...Noname ID 69,- 

... CF2 DD_ 148,- 


CPC ♦ Joyce 

Über 1000 interessante 
PD-Prg. Fordern Sie bitte 
schriftlich unsere Liste an. 
Jede Diekette 20,- 

PD-Disk. 1-19 mit dtsch. 
Handb. (Kotulla): 
JRT-Pascal (1) • Z80-Entw. 
(2) • SmallC (4) • Forth-83 
(5) • CPC-Arbeitsb. (7) • 
Cave Adventure (8) • Biz- 
Basic (10) • Basic E- Comp. 
(11)* Dateiverwaltung (14) - 
Wordstar Ui iiues (15) -C 
Interpreter (17) • Telekom¬ 
munikation MEX (19) • 

Liste anfordern I 
Jede Diskette 30,— 

MS-DOS 

Über 700 Dsketienl Liste 
anfordern. Bitte schnttlch l 

Jede Diskette 8 


FIBU-STAR PLUS 298,- 
LOCO-MERGE 98,- 


Professional 
Textverarbeitung • DFÜ • 
Datenbank • Tabellenkalku¬ 
lation ■ Geschäftsgrafik • 

Das inlegrierte Softwarepa¬ 
ket, für hohe Ansprüche, 
komplett für nur 138,— 

...deutscher Zeichensatz 
auf 3*-Diskette 29,80 


Steuerung Ihres Joyce Ober 
den Bildschirm, Mit hervor¬ 
ragender Software: AMX- 
Desktop-Programm • Notiz¬ 
buch • Kalender • engl. Handb 
nur 298,- 
Adapter 39,- 


Seitengestalter 
Sensationelles DTP-Progr. 
für den Joyce • engl. Handb. 
StopPress 198,- 

Sl.Pr. + AMX Maus 398,- 


Marqin Maker 


Ideale PapierfOhrung für Ihren 
Joyce-Drucker. 

nur 29,90 


Joyce-Scanner* 


MasterScan & Paint 
Scanner einfach auf 
Druckerkopf stecken und los 
geht'sl 

MasterScan 298,- 

MasterPaint 78,- 

Paketpreis nur 338,- 

Adapter 39,- 


Desktop Publisher* 


Professionelles Desktop- 
Publishing auf Ihrem Joyce 

118 ,- 

... kompl. mit AMX-Maus 

348,- 


dk tronics Joyce** 

Joystick-Conroller- 

69,- 

Contr.+Sound- 

129,- 

Echtzeituhrenmodul- 

129,- 

256 k Erweiterung 

248,- 

Adapter (•) 

39,- 

Joyce-Spiele: 1 

ACE 

69,- 


Alle AMSTRAD-Typen 
Auszug davon: 

CPC 464 grün 399,- 

CPC 6128 grün 799,- 

Joyce (8256) 999,- 

PCW9512 1.699,- 

PC 1512 MD/SD 1.299,- 

PC 1640 MD/SD 1.799,- 

Portable-PC 512 1.699,- 

PC 2086 SDl 2 MD 2.499,- 

PC 2286 DD12MD 3.899,- 

AMSTRAD-Drucker: 

LO 3500 nur 799.- 

LO 5000 1.399.- 

DMP2160 499.- 


OMP 3160 
DMP 4000 


Dataphon 21 S 278,- 

Dataphon 21-23 S 378,- 

Anschlußkabel 68,- 

Treiborsoflware 58,- f: 

MP2 (Anschi. TV) 129,- ; 

MP3 (TV-Modulator) 199,- ? 

CT2 (Radlo-Uhr) 89,- |5 


dBase II 
Multiplan 
Vokabelfralner: 

• Kassette 

• 3"-Diskette 
Verbentrainer: 

• Kassette 

• 3"-Diskette 


WS-Tuner 

für WordStrar 49,80 I 

PD-Software 
mit deutschem Handbuch 5 
(1-19) je 30,- h 

Uste anfordern I J j 

Batman 59,- 

Bridge Player 59,- 

Clock Chess 88 69,- 

Colossus Bridge 53,- 

Colossus Chess 69,- i:- 

F.B. Boxing 69,- li 

Football Fort. 69,- i; 

Head over Heels 49,- | 

Jewels Darkness 89,- 

Knight Orc 69,- 

Pawn 89,-- 

Strike Force H. 69,-- | 

Tetris 65,- | 

Tomahawk 79,- | 

** Aufgepasst ** 

Alle engt. Produkte 
werden mit orginal engl. 
Handbuch ausgeliefert! 

Für 29,80 (*) bzw. 19,80 
(*■) erhalten Sie zusätz¬ 
lich die jeweilige dtsch. 
Übersetzung. 

Joyce-Katalog 
Der Joyce ist noch 
längst nicht toll Wenn 
Sie näheres über unsere 
Joyce-Produkte erfahren 
wollen, so bestellen Sie 
sich doch einfach unse¬ 
ren Joyoe-Katalog 4,- ... 


Alle Schneider-Typen :i; 
Die absoluten Renner: 

Euro PC: 

... MM12 1.298,- § 

Tower AT: 

...201 MM 12 2.498.- ! 


CPC-Spiele zum sagenhaf¬ 
ten Sonderpreis von: 

jede Kassette nur 20,- 

jede Diskette nur 30,- 

Llste anfordern II 


Karl-Heinz Weeske • Potsdamer Ring 10-7150 Backnang 
Telex 724410 weebad • Kretssparkasse Backnang • BL2 
(60250020)74397 • Postgiro Stgt. 83326-707 • FAX 60077 


































[—Bericht 


MIT VOLLGAS 

ZUM FERTIGEN PROGRAMM 


Leider gibt es bei der Nennung der Na¬ 
men immer noch Verwirrung. Um es 
gleich vorwegzunehmen: Shareware 
ist keine Abart der Public Domain. Bei 
Shareware-Programmen handelt es 
sich um kommerzielle Software, die 
Sie sich zu einem Bruchteil des End¬ 
preises ansehen können. Bei Gefallen 
können Sie dann die letzte Version des 
Programmes sowie eine ausführliche 
Bedienungsanleitung nach Registrie¬ 
rung beim Autoren oder Vertreiber er¬ 
werben. Shareware darfauch nicht ko¬ 
piert und weitergegeben werden. Es 
handelt sich um eine Art Probe, wie 
beim Wein: Schmeckt Ihnen die Sorte, 
die Sie im Probierglas haben, dann dür¬ 
fen Sie gerne die dazugehörigen Fla¬ 
schen mitsamt Etikett kaufen. Nur um¬ 
füllen und Weiterverkäufen dürfen Sie 
ihn nicht. Alles klar? 

Hab* ich den Nutzen von 
PD-Programmen? 

Diese Frage müssen Sie sich selber be¬ 
antworten, denn wenn Sie einmal PD- 
Disketten geordert haben, können Sie 
diese kaum wieder Umtauschen. Aller¬ 
dings geben PD-Anbieter gerne Listen 
heraus, an denen Sie sich orientieren 
können, da der Inhalt der Disketten mit 
bekanntgegeben wird. 

Die Qualität der Programme ist manch¬ 
mal sogar besser als die von vergleich¬ 
baren kommerziellen. Die Mehrzahl 
der angebotenen Software ist auf jeden 
Fall von großem Nutzen, vor allem, 
wenn Sie zu denen gehören, die die ei¬ 
gene Programmierung des Computers 
noch nicht bewältigen oder beherr¬ 
schen. Wer sich eine Software-Biblio¬ 
thek anlegen will, in der alle gängigen 
Computerprogrammarten enthalten 
sind, der sollte sich ruhig einmal auf 
dem PD-Markt orientieren. Alleine die 
vielen Utilities, die es für die einzelnen 
Computer gibt, sind 'ihr’ Geld wert 
(wobei, wie gesagt, der Preis eine klei¬ 
nere Rolle spielt). 

Wo kann ich PD-Programme 
bekommen? 

Im Prinzip bekommen Sie PD-Soft- 
ware bei fast allen Software-Anbietern. 
Inzwischen haben auch noch andere 
Berufssparten ihr Herz für Computer 
und PD entdeckt, vor allem Büchereien 
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MICROSOFT QUICKBASIC 4 . 5 . 


Bericht—| 



Mil MICROSOFT QUICKBASIC 4.5 ist Programmieren 
auf dem PC jetzt effektiver als je zuvor. Durch zwei neue, voll 
in MICROSOFT QUICKBASIC 4.5 integrierte 
Hilfsfunktionen wird die Programmierung 
wesentlich vereinfacht: QB-Express ist ein 
interaktives Lernprogramm, das Sie schnell und 
gezielt in die Umgebung von QUICKBASIC ein¬ 
führt. Schon nach wenigen Minuten entwerfen 
Sie Ihre ersten Programmsysteme. Der QB-Rat¬ 
geber ist die elektronische On-Line-Hilfsfunktion 
mit dem kompletten BASIC-Befehlsverzeichnis 
und umfassender Beschreibung aller BASIC- 
Befehle. Mit der Hypertext-Technologie des 
QB-Ratgebers können Sie jederzeit per Knopf¬ 
druck oder Mausklick Querverweise und Bei¬ 
spiele zu sämtlichen BASIC-Befehlen am Bild¬ 
schirm abrufen. Beispiele können Sie in den 
Editor kopieren und sofort austesten. Zeitrau¬ 
bendes Suchen im Handbuch entfällt Ihr per¬ 
sönlicher Trainingsaufwand wird auf ein Mini¬ 
mum reduziert. 

Als einziger BASIC-Compiler besitzt 
MICROSOFT QUICKBASIC 4.5 eine integrierte 
Programm-Entwicklungsumgebung mit einge¬ 
bautem Editor, Compiler und benutzerfreundli¬ 
chem Debugger. Die automatische Syntaxüber¬ 
prüfung bei der Eingabe verkürzt langwierige 
Übersetzungszeiten. Innovative Technik elimi¬ 
niert überflüssige Compilierschritte.Sie können 
Ihr Programm ausführen, zum Editieren und 
Debuggen anhalten und ohne zeitintensive 
Neucompilierung jederzeit in der Programm¬ 
ausführung fortfahren. Sie müssen schon lange 
suchen, um einen Compiler mit schnelleren 
Programmentwicklungszeiten zu finden. 

MICROSOFT QUICKBASIC 4.5. Der einfachste und 
schnellste Weg zur BASIC-Programmierung. Jetzt zum 
Preis von DM 339,- (unverbindliche Preisempfehlung). 

MS/iHMl ö [äääTliBl »iZ5i 


Zwei neue, umfang¬ 
reiche integrierte 
Hilfsfunktionen: 

- interaktives 
Lemprogramm 
QB-Express 

- QB-Ratgeber 
Komfortabler 
Quell-Code- 
Debugger: 

- Haltepunkte, 
Anzeigevariablen, 
Einzelschritt¬ 
ausführung, u.v.m. 

Compiliert bis zu 
150.000 Zeilen 
pro Minute 
Automatische 
Syntaxüberprüfung 
bei der Eingabe 
Gemischtsprachi¬ 
ges Programmieren 
Programm große 
über 64 KB möglich 
Rekursionen 
Kompatibilität zum 
MS 0S/2-BASIC- 
Compiler 6.0 sowie 
zu allen BASIC- 
Interpretern 
(BASICA, 
GW-BASIC) 
Grafik-Unterstüt¬ 
zung von VGA. EGA, 
CGA, AT&T 6300 
(Olivetti) und 
HERCULES 



ZUKUNFT DER SOFTWARE 


COUPON 


Bitte senden Sie mir Informationsmaterial zu: □ MICROSOFT QUICKBASIC 4.5 

□ System Journal, die spezialisierte PC-Fachzeitschrift für Software-Entwicklung. 

Ich nutze Software: □ privat □ beruflich/Branche_ 

Mein Rechner: □ MS-DOS □ MS OS/2 □ Macintosh 

Bitte senden Sie den Coupon an: Microsoft Info-Service • Postfach 129 • 8000 München 1 

Absender nicht vergessen. PC-A-6/89 


führen immer öfter die entsprechenden 
Programme im Sortiment. Allerdings 
sei hier auf einen Umstand verwiesen, 
der sich zum Nachteil des Kunden, und 
damit des Anwenders entwickeln kann, 
dies ist das fehlende Wissen über Com¬ 
puter und deren Möglichkeiten. Wir 
wollen jetzt nicht alle ’Fremd’-Anbie- 
ter über einen Kamm scheren, wer je¬ 
doch als Käufer sichergehen will, geht 
dahin, wo die Beratung optimal an den 
Verkauf angeschlossen ist. Ansonsten 
kann es sehr schnell passieren, daß 
man als Anwender auf dem Trockenen 
sitzt, vor allem dann, wenn die auf der 
Diskette vorhandenen DOC-Files (die 
Beschreibungen zu den Programmen) 
sich als “in Englisch geschrieben und 
damit nicht lesbar!“ entpuppen. Da ist 
man froh, wenn einem Hilfe zuteil 
wird. 

Kurz und bündig, die F*ublic Domain 
als Ramschkiste zu bezeichnen, ist 
nicht nur vorschnell, sondern auch 
meistenteils falsch. Sicherlich gibt es 
immer wieder Programme, deren Ver¬ 
wendungszweck wohl nur dem Pro¬ 
grammierer bekannt sein dürfte, aber 
die Mehrzahl besteht aus qualitativ 
hochstehenden Geistesprodukten. Es 
lohnt sich auf jeden Fall, sich die Liste 
eines Anbieters einmal anzusehen. 
Damit Sie einen Überblick über das 
Angebot speziell für den CPC, PCW 
(Joyce) und PC bekommen, haben wir 
auf den folgenden Seiten einiges an 
Software aus der PD zusammengetra¬ 
gen. Diese Übersicht soll kein umfas¬ 
sender Test sein, sondern eine Über¬ 
sicht über interessante Produkte dieser 
Sparte. Am Schluß unseres Berichtes 
finden Sie eine Liste mit einigen Anbie¬ 
tern von PD- und Shareware. Diese Li¬ 
ste erhebt natürlich keinen Anspruch 
auf Vollständigkeit (dies würde den 
Rahmen des Artikels sprengen), und 
somit mögen uns die Anbieter, die an 
dieser Stelle nicht genannt werden, 
nicht böse sein. Sie, liebe Leser, kön¬ 
nen sich weitestgehend umfassend in 
vielen Publikationen über PD und 
Shareware informieren, Anbieter gibt 
es in fast jeder Stadt. 

So, damit wäre eigentlich alles gesagt, 
beginnen wir nun mit der Rundfahrt 
durch die PD-Landschaft. 


Gb) 
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CPC-Public-Domain-Software 

Public Domain (PD) - ein Schlagwort, das in aller Munde ist. Wir zeigen, 
was für den CPC auf diesem Gebiet geboten wird. 


Besonders für den Atari ST und für die 
IBM-kompatiblen PCs existiert ein rie¬ 
siges Software-Angebot solcher (bei¬ 
nahe) kostenloser Programme. Vor al¬ 
lem dank des Betriebssystems CP/M, 
das bei den CPCs mit Erwerb eines 
Disketten-Laufwerkes zur Verfügung 
steht, eröffnet sich auch für den CPC 
eine völlig neue Welt. Tausende von 
CP/M-Programmen stehen für den 
CPC zur Verfügung, sofern man die 
Möglichkeit zur Konvertierung der 
5.25“-Disketten in das 3 w -Format hat. 
In Deutschland hat sich Martin Kotulla 
im PD-Vertrieb für die CPCs einen Na¬ 
men gemacht. Er hat einige herausra¬ 
gende Programme auf 3“-Disketten 
übertragen und mit deutschen Kurzan¬ 
leitungen (und urheberrechtlichen Auf¬ 
lagen) versehen. Im folgenden stellen 
wir die wichtigsten Programme kurz 
vor. 

E-BASIC - ein Interpreter 

E-BASIC ist ein Programm von Gor- 
don Eubanks. Der Interpreter kennt 
folgende Datentypen: 

— Integer-Zahlen 

— Fließkomma-Zahlen 

— Strings (Zeichenketten) 

— dimensionierte Felder 

Er hat 24 Funktionen, 26 Befehle und 
51 Fehlermeldungen. Die Bedienung 
des Systems mag auf den ersten Blick 
ein wenig merkwürdig erscheinen, 
denn das Erstellen und Austesten von 
Programmen unter E-BASIC erfolgt in 
mehreren Schritten: Zuerst schreiben 
Sie mit einem ASCII-Editor das Quell¬ 


programm. Dieses compilieren Sie mit 
EBASIC.COM in eine “.INT“-Datei 
(Laufzeit-Zwischencode), der dann 
mittels ERUN.COM ausgeführt wer¬ 
den kann. 

Die Vorteile des Interpreters: 

+ Kompatibilität zu anderen CP/M- 
Systemen (z.B.: Joyce/C-128) 

4- Zeilennummern sind optional (nur 
als Sprungziele für GOTO/GOSUB) 
+ Kompatibilität zu anderen Standard- 
BASIC-Versionen 

Im Vergleich zu C-BASIC fehlen die 
Befehle LPRINT, PRINT USING, 
PEEK, POKE und CALL sowie sämt¬ 
liche Grafik-Befehle. 

ED — der Text-EPitor 

Der Bildschirm-Texteditor ED stammt 
in der Urversion von Kazuo und Kazu- 
ko Nazakato. Er wurde in Turbo Pascal 
verfaßt und kennt alle grundlegenden 
Befehle wie Blockoperationen, Einfü¬ 
gen und Löschen, umfangreiche Datei¬ 
operationen und so weiter. Er wird bei 
E-BASIC, JRT-Pascal und Small-C 
mitgeliefert. Der Quellcode kann übri¬ 
gens ebenfalls über PD erworben wer¬ 
den (Diskette Nr. 1027 bei Martin Ko¬ 
tulla). 

Small-C 

Der Compiler Small-C wurde von Au¬ 
toren des berühmten Dr. Dobbs Jour¬ 
nals entwickelt. Diese Version ist für 
Hobbyprogrammierer bestens geeig¬ 
net, um diese Programmiersprache 
kennenzulernen. Small-C läßt sich be¬ 


liebig erweitern und der Quellcode 
kann auch auf Assembler-Ebene pro¬ 
grammiert oder nachbearbeitet werden 
(der Compiler erzeugt puren Assem¬ 
bler-Source für das mitgelieferte Mac- 
ro-Assembler-System). Der C-Quell- 
code des Compilers kann übrigens 
ebenfalls bei SoftMaker bestellt wer¬ 
den (Disk 1028). Darüber hinaus wer¬ 
den weitere Compiler (z.B.: SCI) und 
sogar ein C-Interpreter angeboten! Um 
Irrtümern vorzubeugen, sei erwähnt, 
daß der Markt & Technik-Verlag eine 
Small-C-Version kommerziell ver¬ 
treibt, die mit dieser Version zwar eini¬ 
ges gemeinsam hat, aber von J. E. 
Hendrix in eine andere Richtung wei¬ 
terentwickelt wurde. Bei dieser Ver¬ 
sion fehlen zum Beispiel Fließkomma¬ 
zahlen. 

JRT-Pascal 

Falls Ihnen kommerzielle Pascal-Com¬ 
piler zu teuer sind, ist vielleicht das Ja- 
mes-Robert-Tyson-Pascal - ein er¬ 
weitertes Standard-Pascal - das richti¬ 
ge für Sie. Es arbeitet genau nach dem 
gleichen Zwischencode-Prinzip wie E- 
BASIC. Eine Vielzahl von Datentypen 
(boolean, integer, real, char, array, 
set, record) sowie INLINE und CALL 
sind integriert und garantieren somit 
die Kompatibilität zu anderen Stan¬ 
dard-Pascal-Versionen. Die Program¬ 
me sind allerdings nicht mehr auf den 
Hauptspeicher begrenzt. Externe Pro¬ 
zeduren werden variabel verwaltet und 
bei Bedarf von Diskette nachgeladen. 
Overlays werden dadurch überflüssig. 
133 deutschsprachige Fehlermeldun¬ 
gen (Kotulla hat auch die System-Mit¬ 
teilungen eingedeutscht) runden dieses 
Paket ab. Dieses Paket hat übrigens 
eine kuriose Geschichte: J. R. Tyson 
hatte es in der US-Zeitschrift PC 



Mit E-BASIC lassen sich unter CP/M lauffähige Programme erzeugen 


ft: RENAKE 

INT : ERflSE INI : SQRT PftS : SßRT INI 

ft: m 

PAS : LN INT ! EDLARGE COM : EOSKALL C0H 

ftljpascal cos.pas 

JRI Pascal Version 2.0D 

Copyright 1982 JRI Systwis 

0000 0001 
0003 0002 
0003 0003 

EXTERN 

FUNCTION Cos(x:REftL):REAL; 

CMC 0004 

C0NSI Half Ji = 1.S707963267948; 

0006 MOS 

Pi = 3.1415926S35897; 

0006 000G 
0006 0007 

Iuoji = 8.28318S3071736; 

0006 0008 
0006 0009 

VAR i '.INTEGER; 

0006 0010 
0006 0011 

PROCEDURE Cwpute.Cos; 

0003 0012 
0009 0013 
0009 0014 

VAR Result.Result2,f,Exclan,x2,Peufr,0ddl:REßL; 
i:INIEQS; 

0003 0015 

PROCEDURE factorial; 

000F 0018 

BEGIN 

1 

Drive is fl: 


Ein gutes Pascal-Programm muß nicht teuer sein. Der PD-Markt macht es 
möglich 
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Public-Domain-Anbieter für den CPC: 

A+C Vertrieb, 

Herbert Köcher GbR, 

Emser Straße 18, 

D-1000 Berlin 44, 

Telefon 030/6253605 
CPL, 

Postfach 1451, 

D-6368 Bad Vilbel 

K. Bertram, 

Haardtwaldstraße 17, 

D-6000 Frankfurt 17, 

Telefon 6702230 
Peter Breuker, 

Rektenstraße 10, 

D-4930 Detmold 1 

Free, 

Postfach 38, 

D-7454 Bodelshausen 

Frenzei, 

Am Kleinen Rahm 101, 

D-4030 Ratingen 
Martin Kotulla, 

SoftMaker, 

Grabbestraße 9, 

D-8500 Nürnberg, 

Telefon (0911)303333 
PDI, 

Postfach 1118, 

D-6464 Linsengericht 
Weeske Computer-Elektronik, 

Potsdamer Ring 10. 

D-7150 Backnang 


TECH JOURNAL 1982 für 30 Dollars 
angeboten und erhielt 100.000 (!) Be¬ 
stellungen. Weil er die Nachfrage nicht 
befriedigen konnte, bekam er Proble¬ 
me mit der Bundeshandelskommission 
und gab das Programm in die Public 
Domain. 

Noch mehr Public Domain... 

Kotulla bietet eine Palette weiterer 
CP/M-Utilities: WordStar-Erweite- 

rungen (Makros, Tastenbelegungen, 
Infos, Patches), Z80-Macro Assem¬ 
bler/Disassembler, Mini-Interpreter 
von Lisp/Prolog, ein umfangreicher 
Forth-Compiler (Forth-83), Turbo 
Pascal-Quellprogramme, Dutzende 
von Programmiersprachen, Datei Ver¬ 
waltungen und so weiter und so fort... 

Der Tod einer Idee? 

Leider hat der einzige uns bekannte 
größere PD-Vertreiber für den CPC, 
SoftMaker, seine Bestrebungen man¬ 


gels Nachfrage eingestellt. Martin Ko¬ 
tulla hat sein PD-Software-Angebot 
auf dem gegenwärtigen Stand eingefro¬ 
ren. Sollten Sie also Interesse an neuer 
Public-Domain-Software haben, so 
bleibt Ihnen nur noch der Weg über die 
großen britischen und amerikanischen 
Vertriebe und eine eigene Konvertie¬ 
rung für den CPC. Es gibt einige unbe¬ 
kanntere Anbieter. Auch Computer- 
Zeitschriften bieten oft PD-Program- 
me mit an. Umschauen lohnt sich. Im 
Anhang haben wir einige Adressen von 
PD-Anbietern zusammengetragen. 
PD-Programme speziell für den CPC 
sind relativ selten und werden meist 
von kleineren User-Clubs für die Mit¬ 
glieder zur Verfügung gestellt. Hier 
lohnt sich oft ein Studium der Kleinan¬ 
zeigen. 

Man muß sich ganz einfach darüber im 
klaren sein, daß der CPC kein typi¬ 
scher Public-Domain-Vertreter wie es 
zum einen Beispiel der ATARI ST ist. 


(Eckehart Röscheisen/cd) 


Hits aus denClMlZ-Uerlag 


FLIPPER 


_- Superutility zun Wechseln zwischen 

Locoscript 2 und CP/M in 3 (!) Sekunden durch 
Installation eines zweiten Arbeitsspeichers in der (er¬ 
weiterten) RAM-Disk (H:), Arbeiten Sie nit Locoscript und 
ginfifl-he heftigen anderen Proorawi Para He im DM 128,- 

- sehr vielseitiges und benut¬ 
zerfreundliches Karteikartenprogrann ^ _ 

- die neue Zeitschrift» 
(exklusiv) aus dew CM2-Uerlag DM S,- 



Kostenlose Prospekte über diese und andere Proqrawie bei« 

CMZ-Verlag Hinridi C.-H. Glasen, 
4850 Gelsenkirchen 2 , Tel.: 0209 - 

Borgswiese 9-11, 

777 898 (0-24 Uhr) 



Schalten - Steuern - Regeln mit dem JOYCE 


Endlich auch für die PCW-Reihe 8256/8512/9512 

Ideal für Schule, Umerncht, Ausbildung: Steuern Sie mit Ihrem JOYCE Ampelan'agen. Robotermodei-e, 
Schrittmotoren usvr. 

Schaltinterface mit 8 Ausgangen und 8 Eingängen. Ausgänge über Hochlast-Re'ais, Eingänge über Opto¬ 
koppler galvanisch vom Computer getrennt. Anschluß an den Computer direkt am Expansion-Port, 
keine CPS 8256-Schmttsie.le erforderlich! Aus- und Eingangsvercindunger über 2,6 mm oder 4 mm- 
Bananenbuchsen, Es lassen sich bis zu 8 Interfaces parallel anschließer (64 Aus-/Eingange). 


Betriebsfertiges Interfaces inkl. Netzten und umfangreicher 
Bedienungsanleitung (mit BASIC-Programmbeispielen) 


Keybord-Verlängerung für PCW 8256/8512/9512 (nur solange Vorrat): 
AnschluBferliges Spiralkabel (grau) 30 cm -100 cm 

DM 25 — 


Preise emschl. Portc/Verpackung bei Vorauszahlung. Bei Nachnahmeversano DM 8,- Versandkosten. 
Info-Material kostenlos. 


E. Sinkwitz, Didakt. Hard- und Software, Zähringerstr. 7,7880 Bad Säckingen 



Diskettenlaufwerke 

Anschlußfertige Qualitätslaufwerke von TEAC, 
2*80 Spuren, 1 MB unformatiert. 1 Jahr Garantie ! 


EURO PC 


720 KB, 3.5" 249.- 

360/720 KB, 5.25" 298.- 


JOYCE 


726 KB, 3.5" 
726 KB, 525" 


249.- 

348.- 


MsCopy (ermöglicht Lesen/Schreiben von MsDos) 49.- 
40/80 Tr. Umschaltung für 5.25" und MsCopy 20.- 


CPC 


830 KB, 3.5" 
830 KB, 5.25" 


298.- 

348.- 


Zweitlaufwerke mit 830 KB formatierter Kapazität unter CP/M, 360 KB 
unter Amsdos bzw. BASIC, Lieferung umfasst ein komplett anschlußfer¬ 
tiges Diskettenlaufwerk inkl. der Programme DiskPara und MsCopy. 


DiskPara 


für alle CPCs 79.- 

Treiberprogramm zur Erhöhung der 
Diskettenkapazität. Ermöglicht je nach Laufwerkstyp Kapazitäten bis 
830 KB unter CP/M. Vollkompatibel läuft z B mit: Turbo Pascal, 
DBase und Wordstar. Getestet in Schneider Aktiv 5/87, c't 5/87, PC 
Int. 6/87, CPC Magazin 4/87, Happy Computer 4/87, 8. M&T Sonderheft 


1512 
1640 

Festplattenkit 30 MB: 648.- 


720 KB, 3.5" 249.- 

360 KB, 5.25" 159.- 

42 MB 748.- 



Frank Strauß Elektronik 

Schmiedstr.11 6750 Kaiserslautern Tel.(0631)67096-98 

Bitte bei Bestellungen genaue Systemkonfiguration angeben. 
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Einige interessante Programme 
für JOYCE im Überblick 

Public Domain ist heutzutage in aller Munde. Daß es auch oder gerade für 
den JOYCE Interessantes aus der Public-Domain-Kiste zu entdecken gibt, 
soll Ihnen dieser Artikel zeigen. 


Der JOYCE PCW ist - wie Ihnen si¬ 
cherlich bekannt ist — ein CP/M-Com- 
puter. Da die Public Domain in der 
Zeit aufkam, als es fast nur CP/M- 
Computer gab, ist heute für den 
JOYCE ein fast unerschöpfliches Re¬ 
servoir an Programmen, Toolkits und 
Hilfen in der Public Domain erhältlich. 

Wir haben uns einige der interessante¬ 
sten Programme herausgesucht, um Ih¬ 
nen eine kleine Hilfe bei der Auswahl 
von PD-Programmen zu geben. 

SQ, USQ 

Speicherplatz sparen wollen alle — 
aber wie? Haben Sie nicht auch Interes¬ 
se an Programmen zum Komprimieren 
und zum Dekomprimieren von Texten, 
Programmen und so weiter? SQ und 
USQ bilden eine Alternative. Mit die¬ 
sen Programmen können Sie Ihre Da¬ 
teien auf bis zu 80% zusammenquet¬ 
schen. Speziell Festplattenbesitzer 
sollten sich überlegen, ob diese Pro¬ 
gramme nicht nützlich wären. Das Pro¬ 
blem ist ja bekannt. Eine 20-, 40-, 
60-MByte-Festplatte wurde ange- 
schafft, wahllos alles daraufkopiert, 
und siehe da, die Festplatte ist voll. SQ 
und USQ sollten Sie sich also anschaf- 
fen und wenigstens einige Programme 
komprimieren, die Sie sowieso kaum 


benutzen. Angemerkt werden sollte 
noch, daß diese Programme als Funk¬ 
tionen in dem Programm NSWEEP 
V2.07 integriert sind. 

Daß SQ sehr gut arbeitet, beweist, daß 
der Text zum Texteditor (DATABOX 
zu Heft 3/89) von 24 auf 16 kByte kom¬ 
primiert wurde. 

DEL.COM 

Sie wollen viele Dateien auf einer Dis¬ 
kette löschen, wollen aber nicht jede 
einzeln löschen. Was bietet sich also 
an? Der Befehl ERASE *.* [C ist viel 
zu umständlich. Also benutzt man das 
Programm DEL.COM, und die Datei¬ 
en werden mit Sicherheitsabfrage ge¬ 
löscht. Über Sinn oder Unsinn dieses 
Programms sollten Sie sich klar 
werden. 

LINERA( + ) 

Es kann immer wieder Vorkommen, 
daß Sie aus Versehen eine Datei oder 
einen Text löschen, der für Sie wichtig 
ist. UNERA(+) macht dieses Löschen 
ungeschehen, das bedeutet, es verän¬ 
dert das erste Byte des Directory-Ein¬ 
trages so, daß das Programm vom 
CP/M wiedererkannt wird. Es wird 
also eine Löschmarkierung gelöscht. 
Da es mehrere Versionen dieses Pro¬ 


gramms von verschiedenen Autoren 
für verschiedene Computer gibt, soll¬ 
ten Sie aufpassen, daß Sie die Version 
für CP/M Plus bekommen, da sonst un¬ 
liebsame Nebenerscheinungen auftre- 
ten können. 

FINPBAD.COM/SCAN.COM 

FINDBAD und SCAN sind Program¬ 
me zum Reparieren oder besser zum 
Ausblenden von schlechtcn/defekten 
Sektoren, die durch schlechte Be¬ 
schichtung oder unsachgemäße Hand¬ 
habung entstehen können. FINDBAD 
und SCAN isolieren also einen solchen 
Sektor nach dem Finden. Das bedeutet, 
daß er eine versteckte Datei anlegt, 
welche diese Sektoren beinhaltet. Wird 
jetzt eine Lese/Schreiboperation auf 
der Diskette/Platte durchgeführt, wer¬ 
den diese Sektoren übersprungen, da 
sie ja schon belegt sind. FINDBAD 
und SCAN sollten jedoch nicht erst 
nach dem Auftreten eines Fehlers be¬ 
nutzt werden. Gleich nach dem Forma¬ 
tieren mit Disckit sollten Sie diese Pro¬ 
gramme einmal durchlaufen lassen. 

DU.COM 

DU.COM ist ein Diskettenmonitor mit 
Pfiff. Es handelt sich hierbei nicht um 
einen normalen Diskettenmonitor, wie 
er seit jeher bekannt ist, sondern um et¬ 
was ganz anderes. Eine Hilfsfunktion 
(in deutscher Sprache) erleichtert das 
Arbeiten mit DU.COM ungemein. 
Läßt man die Hilfsfunktion durchlau¬ 
fen, wird man feststellen, daß alle Be¬ 
fehle nur aus einem Buchstaben und 
den entsprechend benötigten Parame¬ 
tern besteht. Compiliert wurde dieses 
Programm ab einer Adresse, wo es kei¬ 
ne Überschneidungen mit Festplatten 
und sonstigen Erweiterungen gibt, 
welche zur Inbetriebnahme entspre¬ 
chende Software benötigen. Bei uns 
klappte das Zusammenspiel von 
DU.COM und Festplatte auf jedem 
Fall ohne Probleme. 

SURVEY.COM 

SURVEY.COM bietet Ihnen einiges 
mehr als das Dienstprogramm 
SHOW.COM, welches sich auf Ihrer 
Systemdiskette befindet. 

Nach dem Aufruf des Programms wird 
als erstes der von Dateien belegte 
Platz, die Anzahl der Dateien und der 
noch freie Platz der Diskettenlaufwer¬ 
ke ausgegeben. 

Als nächstes wird die Speicherbele¬ 
gung (TPA, CP/M, BIOS, ROM) und 



Die Bildschirmaufieilung von SHELL. COM 
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der Anfang der einzelnen Bereiche aus¬ 
gegeben. Ein recht nützliches Utility 
für alle, die etwas mehr über Ihren 
CP/M-Computer erfahren möchten. 

KERMIT.COM 


Viele JOYCE-PCW-Besitzer haben 
neben dem JOYCE noch einen zweiten 
Computer. Es wäre also für diejenigen 
interessant, Texte von einem Compu¬ 
ter auf den anderen zu kopieren. Späte¬ 
stens jetzt jedoch taucht das Problem 
auf, daß beide Computer mit verschie¬ 
denen Diskettenformaten arbeiten. Da¬ 
mit Sie jetzt nicht extra ein neues Lauf¬ 
werk für einen der beiden Computer 
kaufen müssen, gibt es das Programm 
Kermit. Es ermöglicht Ihnen über eine 
serielle Schnittstelle den Datenaus- 


Sollten Sie Interesse an einem dieser 
Programme haben, schreiben Sie bitte 
an eine der nachfolgenden Adressen, 
und fordern Sie dort einen Katalog an. 
Dieser Bitte werden die Damen/Her¬ 
ren sicherlich gerne nachkommen. 

Ganz sicher werden Sie auch noch an¬ 
dere interessante Programme finden. 

Joyce User Group Styria 
c/o Herbert Moschitz 
Postfach 96 
A-8041 Graz 

Martin Kotulla 
Grabbestraße 9 
8500 Nürnberg 90 

Public Domain Initiative 
Postfach 1118 
6464 Linsengericht 

Weeske Computer Elektronik 
Potsdamer Ring 10 
7150 Backnang 

Haben Sie Erfahrungen mit Public- 
Domain-Programmen oder liegen Ih¬ 
nen andere Adressen vor, wo Public- 
Domain-Programme für den JOYCE 
PCW angeboten werden ? Schicken Sie 
uns doch bitte einen Brief, und teilen 
Sie uns diese mit. Unsere Leser wer¬ 
den Ihnen sicher für diese Infonnatio¬ 
nen dankbar sein. 

Schreiben Sie bitte an folgende 
Adresse: 

DMV-Verlag 

Redaktion PC AMSTRAD/JOYCE 
Postfach 250 
3440 Eschwege 


Generic CP/M-80 Kernit-80 V3.9A 

Kernit-80 C:)status 
Local echo off 
File Mode ASCII 
IBM flag off 
File warning on 
Printer copy off 
Parity: none 

Block check twe: 1-character 


Tiner off 


Xenut-80 C:>help 

m to host (LOGOUT) and exit to CP/M 
CMiECT to host on selected ?ort 
ERA a CP/M file 
EXIT to CP/« 

FINISH running Kerflit on the host 
HELP by givinö this «essage 
DH of current used Micro-disk 
LOG the terftinal session to a file 
LOGOUT the host 

S IVE file fron host 
file to host 
SET a paraneter 
SHOW the paraneters 
STATUS of Kernit 

TRANSNIT file to host (in connect state) 
Xerflit-86 C:)| 


Abbildung 2: Status und Help von Kermit 

tausch zwischen beiden Computern. 
Alles, was Sie benötigen, ist eine se¬ 
rielle Schnittstelle bei beiden Compu¬ 
tern (für den JOYCE PCW die CPS 
8256/8512) und ein serielles Kabel 
(Null-Modem-Kabel) und eben das 
Programm Kermit. Nun können Sie 
mit dem Datenaustausch beginnen. 
Hierbei sollten jedoch alle Texte im 
ASCII-Format vorliegen, da andere 
Computer mit LocoScript-Texten 
nichts anfangen können. 

SHELL.COM 


Bei SHELL.COM handelt es sich um 
eine Benutzeroberfläche, die recht ge¬ 
schickt eingeteilt ist. Schaut man sich 
den Bildschirmaufbau genauer an (Ab¬ 
bildung 1), erkennt man, daß alle Ein¬ 
gaben/Funktionen/Programme mit den 
Cursortasten angewählt werden kön¬ 
nen. Neben den fest gespeicherten Auf¬ 
rufen der Hilfsprogramme, die sich auf 
den Systemdisketten befinden, ist eine 
Laufwerks/User-Umschaltung inte¬ 
griert, die von vornherein Festplatten 
unterstützt. 

Hilfsdateien 


Für viele in der Public Domain angebo¬ 
tenen Programme gibt es Hilfsdateien. 
Sie enthalten Informationen und An¬ 
wendungsbeispiele zu den jeweiligen 
Programmen. Da die Hilfstexte auf den 
Disketten meistens kurz gehalten sind, 
sollten Sie also bei komplexeren Pro¬ 
grammen diese Hilfsdateien besitzen. 
Diese gibt es zum Beispiel für MBasic, 
ASM und Pistol. (rs) 


Software für CPC und Joyce 


Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 

WS-TUNER für Wordstar * 

Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungen erfahren haben! 
Endlich können Sie Dateien per Cursor¬ 
tasten auswählen, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Befehlc definieren, Textlöschungen rück¬ 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text¬ 
dateien ansehen, drucken ohne zwischen¬ 
zuspeichern, stets freie Diskettenkapazi¬ 
tät und Textlänge ermitteln und, und, und ... 

Nur DM 49,80 

(unverbindliche Preisempfehlung) 

Großes Buch der Public Domain-Software 

Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sie in diesem Buch. 
Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund¬ 
grube für Computerterfans! Mit Rabattcou¬ 
pons für unsere Software! Nur DM 34,80 


Neu: Diskette 18 - MacroPack/Z80 

Assemblerprogrammierung für Einsteiger 
und Profis - Z80-Makroassembler mit fink- 
fähigem Code, Linker, Debugger und Editor. 


1- JRT-Pascal mit 64K-Strings, Overlays * 

2- Z80-Assembler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlen * 

5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 

10- BizBasic - CPC-Basic-Erweiterung 

11- E-Basic - CBasic-kompatibler Compiler 

12- Für Turbo Pascal: INLINER, Grafik 
15- WordStar-Utilities: Fußnoten, Index * 
17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 

* auf dem CPC-464/664 nur mit Speicher¬ 
erweiterung (64K genügen). 

Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Preisempfehlung) 


Unser Kombi-Angebot: 

Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 
3-Zöller von Maxell für nur DM 99,80! 


3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9,8500 Nürnberg 90 
Telefon 09 11/30 33 33 

Weitere Bezugsquellen: 

Firma Simon, 4600 Dortmund 1. Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 
Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg, Tel. 0911/289028 
Hochholzer, 8062 Markt Indersdorf, Tel. 08136/1625 


'3246 

12/58040 
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Public Domain und Shareware 
für Personal Computer 

“Public Domain auf dem PC? Shareware für die Festplatte? Ist doch gar 
kein Problem!“ Richtig, denn gerade bei den IBM-kompatiblen PCs hat 
sich in den letzten Monaten allerhand auf dem PD-/ Shareware-Sektor ge¬ 
tan. Dies ist vor allem der Preisentwicklung im PC-Bereich zu verdanken, 
die es ermöglicht, den ehemaligen Personal Computer als ’Volkscomputer 
Nr.l’ zu sehen, eine Domäne, die früher von den 8-Bit-Rechnern wie CPC 
oder C64 beherrscht wurde. 


Diese Entwicklung trug viel dazu bei, 
daß viele Programmentwickler gerade 
in der PD ihre Chancen sahen, die eige¬ 
nen Programme bekannt zu machen. 
Diese Art der Programmdistribution 
wird aber zusehends durch die Free¬ 
oder Shareware verdrängt. Hierbei 
handelt es sich um voll funktionstaugli¬ 
che Demoversionen der unterschied¬ 
lichsten Programme. Die Autoren die¬ 
ser Shareware erwarten, daß man sich 
nach einer gewissen Probezeit, in der 
man ihr Programm ausgiebig testen 
soll, bei ihnen als registrierter Benut¬ 
zer eintragen läßt. Mit der Registratur 
seines Programms beim Autor erhält 
der Benutzer meist ein Handbuch des 
Programms sowie die neueste Version 
des registrierten Programms. Fast im¬ 
mer wird auch Anwenderunterstützung 
gewährt, das heißt, man kann sich 
schriftlich oder telefonisch an den Au¬ 
tor wenden, falls bei der Benutzung 
seines Programms Schwierigkeiten 
auftreten sollten. Manche Autoren ge¬ 
hen sogar so weit, das Programm an 
die Hardware des Benutzers anzu¬ 
passen. 

Die Registriergebühren liegen in der 
Regel so zwischen 50 DM bis 300 DM, 
bei amerikanischer Shareware bei US$ 


10 bis US$ 100. Mit Hilfe dieser Ge¬ 
bühren beflügelt man den Autor zu 
neuen Taten, so daß im Endeffekt der 
Benutzer von diesen Gebühren profi¬ 
tiert. Der Autor ist aber auch auf ein 
gewisses “Feedback“, also einen Kon¬ 
takt mit dem Benutzer angewiesen. 

Shareware heißt nicht 
’Mach, was du willst’ 

So kann er von diesem erfahren, wo in 
seinem Programm noch Bugs (Fehler) 
stecken. Die sind dann in einer neueren 
Version nicht mehr enthalten. 

Die meisten Autoren dieser Shareware- 
Programme vertreiben ihre Produkte 
über die drei großen amerikanischen 
Usergroups oder Libraries. Es handelt 
sich hierbei um die wohl allen bekann¬ 
ten PC Sig ( Personal Computer Soft¬ 
ware interest group) sowie um die Pu¬ 
blic Software Library und die Best Bit 
and Bites. Alle drei bieten ihren Kun¬ 
den jeweils mehr als 1000 Disketten 
an. Leider handelt es sich hierbei nur 
um englischsprachige Software. Hier 
gibt es aber Programme, die man auf 
der ganzen Welt zu schätzen weiß, so 
unter anderem PC-Write (Textverar¬ 


beitung), PC-File (Disk-Manager), 
Automenü und viele andere mehr. Sol¬ 
che Programme brauchen sich hinter 
den großen, uns allen bekannten kom¬ 
merziellen Programmen nicht zu ver¬ 
stecken. Falls man die hohen Kosten 
nicht scheut, kann man sich direkt aus 
den Mailboxen in den USA mit solchen 
Programmen versorgen. Dort gibt es 
auch spezielle Mailboxen, die sich nur 
auf eine Art von Programmen, zum 
Beispiel Grafik, spezialisiert haben. 
Durch die sehr weite Verbreitung von 
Modems in den USA ist dieser Mail¬ 
box-Methode sehr geholfen, ln der 
Bundesrepublik sieht es da schon an¬ 
ders aus. Hier sind nur solche Modems 
zugelassen, die die Post genehmigt hat; 
diese kosten aber einiges! 

Nun gibt es aber auch in der Bundesre¬ 
publik fleißige Autoren. Die von Ihnen 
erstellten Programme werden fast alle 
nach dem Shareware-Prinzip vertrie¬ 
ben. Bitte bedenken Sie, wenn Sie ein 
solches Programm bei irgendeinem 
Versand erwerben, daß der Autor die¬ 
ses Programms noch keinen Pfennig 
Honorar gesehen hat. Deshalb auch die 
Bitte der Shareware-Autoren an die Be¬ 
nutzer ihrer Programme, sich registrie¬ 
ren zu lassen. Leider wird dieser Auf¬ 
forderung zur Registratur hier in der 
Bundesrepublik nur sehr spärlich nach¬ 
gekommen. Anders dagegen in den 
USA, dort sind die Registraturquoten 
sehr viel höher als bei uns. Es ist sicher 
für den Autor frustrierend, wenn er 
sein gutes, in Tag- und Nachtarbeit er¬ 
stelltes Programm nicht an den Mann 
bringt. Mittlerweile haben sich manche 
Programme deutscher oder deutsch¬ 
sprachiger Autoren einen festen Platz 
in der Sharewareszene erobert. Für je¬ 
den bietet der Sharewaremarkt Pro¬ 
gramme für seine Probleme, ob es der 



Abbildung J: FingerPaint - ein exzellentes Malprogramm 
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Abbildung 2: Artides hilft beim Archivieren von Zeitschriften 
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Schüler ist, der mit Mathe seine Pro¬ 
bleme hat, oder der Geschäftsmann, 
der seine Serienbriefe besser gestalten 
möchte — alle finden unter diesen Pro¬ 
grammen sicherlich das für sie passen¬ 
de heraus. Viele Leute werden froh 
sein, daß es jetzt verstärkt deutschspra¬ 
chige Sharewareprogramme gibt, so ist 
schon mal eine große Hürde, nämlich 
die der englischen Sprache, abgebaut. 
Man tut sich halt mit der eigenen Spra¬ 
che am leichtesten. 

Es gibt nun für einige bekannte US- 
Sharewareprogramme auch Anleitun¬ 
gen in Deutsch. Diese sind dann meist 
in Buchform gehalten, und in ihnen 
wird eingehend auf die Fähigkeiten des 
beschriebenen Programms eingegan¬ 
gen. Viele der Programme sind heutzu¬ 
tage schon Multitalente in bezug auf 
die Hardware des Benutzers. Sie fra¬ 
gen schon bei der ersten Inbetriebnah¬ 
me die genaue Konfiguration der Hard¬ 
ware ab. So kann man sicher sein, daß 
man das Optimum aus dem vorliegen¬ 
den Programm herausholt. 

Ein anderes Kapitel ist die sogenannte 
Kompatibilität. Normalerweise rüh¬ 


men sich fast alle Anbieter von Hard¬ 
warekomponenten, wie kompatibel 
doch ihre Produkte seien. Dies ist im 
besonderen dann festzustellen, wenn 
eine andere Grafikkarte angesprochen 
werden soll als CGA oder EGA. Be¬ 
nutzer einer Hercules-kompatiblen 
Grafikkarte können sich zumeist mit ei¬ 
nem Emulatorprogramm behelfen, 
welches dem Programm vorgaukelt, 
man habe eine CGA-Grafikkarte instal¬ 
liert. Diese Emulatoren muß man vor 
Verwendung eines entsprechenden 
Programms laden. Sie sind meist spei¬ 
cherresidente Programme von gerin¬ 
gem Umfang und schränken somit den 
verfügbaren Arbeitsspeicher kaum ein. 

In zunehmenden Maße gibt es in jüng¬ 
ster Zeit auch vermehrt Programme, 
die speziell für die Besitzer von EGA- 
oder VGA-Grafikkarten von Interesse 
sind. Hierbei handelt es sich oft um so¬ 
genannte ’Slideshows’, also eine Art 
Dia-Vortrag am Bildschirm. Hierbei 
werden dann die Fähigkeiten der Gra¬ 
fikkarten durch die meist gescannten 
Bilder ausgereizt. Es sind dies fast im¬ 
mer reine PD-Programme, wobei das 
Programm, welches die Vorfüh¬ 


rung der Bilder organisiert, meistens 
ein Sharewareprogramm ist. 

Soweit also über das wichtige Thema 
Shareware im PC-Bereich. Natürlich 
ist die Public Domain genauso wichtig, 
wie das riesige Angebot an Disketten 
zeigt, jedoch wird sich der Schwer¬ 
punkt eindeutig auf die Seite der Share¬ 
ware legen. 

Damit Sie etwas Überblick über ange¬ 
botene Programme bekommen, zeigen 
wir Ihnen nun einen Ausschnitt aus der 
Vielzahl der angebotenen Programme. 

Was gibt es 

denn auf dem Markt? 


Für diejenigen, die mit dem DOS ihres 
PCs etwas auf Kriegsfuß stehen, gibt es 
das Shareware-Utility ShortCut, eine 
Benutzeroberfläche, die vergleichba¬ 
ren kommerziellen Programmen stand¬ 
hält. Die Dokumentation und das Pro¬ 
gramm selbst sind in Englisch. Die 
neueste Version und ein ausführliches 
Handbuch sind für US$ 39 erhältlich. 
Zu beziehen ist das Programm bei 
Kirschbaum Software. 


BRANDHEISSE KNÜLLERPREISE 


i 

i 

r 

i 


: : : 

A • 

• -> Neues für JOYCE PCW B256/85I2 & 9512 «- • M • 

• • S • 

• -* TROJAN’5 CADMASTER PACK (Lichtgriffel, • T • 

• Zeichenprogramm + dt. Handbuch) 199,— • R • 

• -* LocoF i I e V. 2.26a Datenbank in Deutsch • A • 

• für LocoScript V. 2.16 nur 168.— DM • D • 

• -» The Desktop Publish er mit dt. Handbuch • • 

• 148,— • Komplett mit AMX-Mouse 342,— • H • 

• -* SMALL—C mit dt. Handbuch nur 99,— DM • Ä • 

• -» MaxaF i t , MM3, 3" FD-2, VORTEX SYSTEM • N • 

• 2000 PCW. PCW 8512 . usw. -* vor rät ig ! • D • 
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• -♦ Gratis JOYCE PCW Infoliste anfordern I • E • 

• Korbiniansplatz 2 8045 Ismaning • R • 

• Tel. 089 - 965029 Fax. - 965001 • • 


Schneider 

Targcrt PC (Portablo AT) 

To*«r AT 220 mit Monitor M M 12 

mit Colormonitor CM 14 
mit EGA-Monitor EM 14 
Towar AT 260 mit EGA-Monitor EM 14 

mit MurtiRcan-Mon. MS 14 
20-MB-Filecetd (Seagate. 40 ms Zugnffe- 
/ait, ainbau und anschfufSfertig (ür olle 
PC 11*12 und PC 1640) 

30-MB-Fllecatd iSeanat* 40 «n») 

30 MO Hlocard iWestom D^lal, 65 rnn» 
Amstrad 

PC 1640 mit 2 LW > htecard 
Monochrommonitor 
Colormonitor 
EGA-Monitor 
PC20B6 SD 12 MD 

SD12MRCD 
PC 2086 ÜD 12 MÜ 

DD I2HRCD 
PC20BG HD 12 MD 
HD12HRCD 
Portable Computer PPC 512 mit 2 Disketten- 
Inulwnrkon 3,5" 

PC 1640 SD mit Schwor* weißmonilor 
mit Colormonitor 

PC 1640 DD mit Schwartwaißmonlior 
mit EGA- Monitor 

PC 1640 HD 20 mit Sr-hwarywnißmonitoi 
mit EGA-Monitor 


20 MB 

2349- 

2699, 

3149- 

2099, -; SD 14 CD 
2949. ; SD14HRCD 
7649. -; DD 14 CD 
3349.-; DD14HRCD 
3149. HD 14 CD 
3949 - ; HD 14 HRCD 


4699.- 
3099. 
3499 - 
3799- 

5299 - 
5849 


699 
799- 
849 - 

30 MB 

2449- 

2799 

3749- 

2549- 

3299 

7949 

3699, - 

3549- 

4299 

1669- 

1629 

18/9- 

1699, - 
2499,- 
2199 
2999.- 


EGA-Monitor lür PC 1640 
EGA-Monitor + EGA-Kartefür PC 1512 
Arnstmd CPC 6128 mit Grünmonilor 
Epvmdrucker |dt Handbücher, mit FT2) 
Anschhißfertig an AMIGA. Schneidet PC oder 
CPC. Atari ST odm IBM-Kompotiblo 
LX 800 
FX 850 
LO 500 
LG 2550 
LQ 850 
LO 1050 

Stardrucker [dt. Handbücher, mit FTZJ 
LC-10 mit Commodorood. ContronicBint. 

I C-10 Color Farbdrucker mit Intortnoo 
LC-24-10 mit Centromcalnterface 
NEC Drucker (dt. Handbücher, mit FTZ) 

NEC P 2200 B99. - . NEC P 7 Plus 

NEC P 6 Plus 1449 -Forboption 

Superknüller: 

24-Nadaldr. LQ 3500 * Tmrtvorflrbeltungsprogrflmm 
Epson Tinlanstrahldruckei IX 8001240 Z«Sek.) 
Siemens BTX-Systflm T 3315 * 16“-Farbmonitor 


549 - 

699 

879.- 


679- 

699 - 
749. 


Vbrsandkostonpauschato (Warenwert bir. DM 1009 Wanjb«r|: 
Vürauskast*« (DM B, -/2Q. - I, Nachnahme IDM 12.5074.501. Aus¬ 
land IDM 20. .'50. ). Liefarung nur gegen NN ador Vbrau&kuss«; 
Ausland nur Vorauskasso 

Preisliste iComputertyp angebe«») nagen Zusenduno eines Frai- 
umachtags. Promo gültig ab 150589 


CSV Riegert fax (0 71 61 ) 1 35 87 

Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 


Ordnung und Übersicht 
schaffen die beliebten 
DMV Sammelmappen 



Bitte Bestellkarte benutzen 

DMV Verlag • Postfach 250 • 3440 Eschwege 
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Abbildung 3: PC-Draft II ist ein recht unständiges Zeichenprogramm 



UOICtnmi UBB. 3.« (C) llpl- In«. 6 Ropke 


Sequenzdatei: 


irectory : B:\ 


DOS-Uersion 

3.3 

Installiert für 

XT-Kcnp 

Inpnt Fort (UT1); 

3HB HEX 

Lanfnerk B 180352 

Bytes frei 



Uiedcrgabe Inslall 


1HP8 : 

rtufnahne Port 



Sequenz Uoiceianple 


Tasten > kUl/S/T/P/V/l/t 

Cut 


a r ,*_kAiui 


Lautsprecfcer 



Intern Extern 


Abbildung 4: Der ’Voieemaker' bildet mit dein dazugehörenden Modul 
(DM 98, -) eine Sprachausgabe 


MindReader ist eine ’etwas andere’ 
Textverarbeitung als die sonst übli¬ 
chen. Sie basiert nämlich auf KI 
(Künstlicher Intelligenz) und bietet ei¬ 
niges an Überraschung. MindReader 
ist allerdings vollständig in Englisch 
gehalten. Zu beziehen ist das Pro¬ 
gramm bei Brown Bag Software in 
Köln. 

PC-Draft II hilft Ihnen beim Erstellen 
von Grafiken aller Art. Die Bedienung 
und Handhabung des Programms ist 
recht einfach und geschieht über die 
angeschlossene Maus. Die Registrie¬ 
rung kostet Sie US$ 50,-, zu erfragen 
ist das Ganze bei Computer Solutions, 
München. 

Falls Sie mal nicht wissen, in welcher 
Ausgabe der PC AMSTRAD ein be¬ 
stimmter Artikel stand, dann empfiehlt 
sich ARTICLES, ein Archivierpro¬ 
gramm für Zeitschriften. Auf der glei¬ 
chen Diskette befindet sich das DOS- 
Hilfsprogramm WILD , welches eine 
Ausgabe von Dateien mittels TYPE- 
Befehl auch mit Wildcards, also Joker¬ 
namen wie ’*.TXT, zuläßt. 

BOTH erlaubt das Ausdrucken eines 
Textes auf jede Seite des eingelegten 
Druckerpapieres. Das Programm lohnt 
sich vor allem bei der Benutzung von 
Einzelblättern. 

Der Name der Diskette ist “Aktuelle 
Monatsdisk August 1988“; zu bezie¬ 
hen ist sie bei der Deutschen Software 
Bibliothek, München. Die Programme 
sind teils Shareware, teils Public Do¬ 
main. 

Folgende nützliche Programm-Disket¬ 
ten dürften für PC-Besitzer ebenfalls 
von Interesse sein und sind vom PD- 
Service Lage zu beziehen: 


MENUEMAKER: Ein Programm zum 
Verwalten der Festplatte durch Menü¬ 
führung. 

DOS-HILFSPROGRAMME: Die Dis¬ 
kette enthält nützliche DOS-Hilfen, so 


Anbieter von Shareware und 
Public Domain im PC-Bereich: 

PD-Service Lage 
Hasselstr. 38 
D-4937 Lage/Lippe 
Tel: 05232/66912 

Computer Solutions 
Rosenbuschstr. 2 
D-8000 München 22 
Tel. .089/295976 

Deutsche Software Bibliothek 
Verlag Nane Jürgensen 
Ysenburgstr. 10 
D-8000 München 19 
Tel: 089/1679644 

Kirschbaum Software GmbH 
Kronau 15 
D-8091 Emmering 
Tel. .08067/1051 

Brown Bag Software 
Theodor-Heuss-Ring 19-21 
D-5000 Köln 1 
Tel.0221/7710923 


zum Beispiel Menüsysteme, Kopier¬ 
programme und vieles mehr. 

ADRESSEN: Komfortable Adressen- 
Verwaltung, die unter dBase III ge¬ 
schrieben wurde. 

DRUCKER: Eine Verwaltung von 300 
Druckertypen, zusätzlich werden auf 
einer zweiten Diskette 300 Monitorty¬ 
pen verwaltet. 


VIRUS: Für alle, die das Risiko einer 
Festplattenverseuchung vermindern 
wollen, gibt es dieses Virus-Erken¬ 
nungsprogramm. 

TURB.HELP: Enthält einen speicher¬ 
residenten Turbo-Pascal-Helfer mit 
vielen Funktionen und Befehlen. 

PC-TUTOR: Ein für PC-Einsteiger ge¬ 
dachtes Lernprogramm. 

MASKENGENERATOR: Gebrauchs¬ 
fertiger Maskengenerator für BASIC- 
und dBase-Programme. 

DISKCAT: Disketten-Katalog-Pro- 

gramm für die Programmsammlung. 

SOFTBUCH: Ein Buchführungspro¬ 
gramm inklusive deutscher Anleitung. 

VOICEMAKER: Ein Sprachausgabe- 
programm mit diversen Einstellmög¬ 
lichkeiten. 

TEXTMASTER: Textverarbeitung mit 
Anleitung. 

So, hiermit müssen wir Schluß ma¬ 
chen, das Angebot für den PC ist so rie¬ 
sengroß, daß wir bei der Auswahl die 
Qual der Wahl hatten. Hier sollten Sie, 
liebe Leser, sich weiter erkundigen. 
Sie finden dazu Adressen einiger PD- 
und Shareware-Anbieter in diesem Ar¬ 
tikel. Wir bitten auch darum, uns nicht 
allzu böse zu sein, wenn der eine oder 
andere Anbieter nicht aufgetaucht ist, 
das eine oder andere Programm nicht 
genannt sein sollte; es ist einfach un¬ 
möglich, es jedem recht zu machen. 
Aber wir hoffen, Ihnen zumindest An¬ 
satzpunkte für eigene Exkursionen im 
PD-/Shareware-Land gegeben zu ha¬ 
ben, und wünschen Ihnen viel Spaß bei 
der Entdeckungsreise. 

(Robert Meinecke/jb) 
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Das Beste vom aktuellen Spielemarkt für alle CPCs 



FLIGHT ACE Control, Strike For- 

rHÄ h, Ä" SPi,,ire4 ° 

Disk. 3“ 65-- DM ‘ 



ARCADEMUSCLE 

Die Actioncompilation. Fünf Spitzenspiele 
zum Sparpreis. 

Cass. 49,-DM* Disk. 3“ 69,-DM* 





tl6t , California Games. 


nM* 


ni<?k. 






NINJA 

Der letzte Ninja muß sein gefährlichstes 
Abenteuer bestehen. Ein Actionspiel für 
Joystickprofis! Disk 3 „ 54> _ DM . 


GAME SET MATCH 2 

Snooker. Hang On, Jan Bothams, Test Match, 
Basket Master, Super Bowl, Track + Field, 
Nick Faldo, Championship Sprint, Winter 
Olympiad, Matchday II. 

Cass. 45,- DM* Disk. 3“ 65,- DM* 


FOOTBALLMANAGER II 
Managen Sie Ihren eigenen Fußballclub. Noch 
besser, bunter und spielbarer als der erste Teil. 
Cass. 35.-DM* Disk. 3" 49,-DM* 


*-"sK. 3" 79,. 


FORCES MAGIQUES 

Magische Kräfte für Ihren CPC! Vier klasse Spiele im Sparpack. 

Pink Panther, Clever & Smart, Vampire’s Empire und Western Games. 

Cass. 39,-DM* Disk. 3“ 59,-DM* 


Super Sampler 


HISTORY IN THE MAKING 

Die Supercompilation. 15 Spitzentitel 
für Ihren CPC. Spannung, Action und 
Abenteuer. Disk. 3“ 84,-DM* 


CLASSIC GAMES 4 

3D-Schach, Bridge, Damespiel, Back¬ 
gammon. 

Cass. 39,- DM* Disk. 3“ 54,- DM* 


COMMAND PERFORMANCE 

Zehn Spiele, die Geschichte mach¬ 
ten! Vom gelungenen Sportspiel bis 
zum actionreichen Weltraumspiel, 
Entertainment nur vom Feinsten. 
Cass. 49,- DM* Disk. 3“ 69,- DM 


10 HIT GAMES 

Cass. 44,- DM* Disk. 49,- DM 


SOLID GOLD 

Disk. 3“ 65,-DM 


Bitte verwenden Sie für Ihre Bestellung unsere Postkarte 

* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das In¬ 
land 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 



DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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Im Zauberreich der Grafik 

Teil II: Vom Brötchen zur Pyramide 

Wie in der Ausgabe 3/89 angekündigt, wollen wir nun unseren Streifzug 
durch die fantastischen Grafikmöglichkeiten des CPC fortsetzen. Wichtig 
ist dahei wieder das MULTISCREEN-Programm (Heft 3/89, S.12), das uns 
zum Bearbeiten der Grafiken dient. 

Diejenigen, die das Programm nicht haben, Sie bekommen es in dieser Aus¬ 
gabe nachgeliefert. 


Das Programm auf dem Titelbild der 
PC Amstrad Ausgabe 3/89 und im Auf¬ 
macherfoto des dazugehörigen Artikels 
(Seite 12) stammt nicht vom Autor die¬ 
ses Beitrags, sondern von einem unse¬ 
rer Redakteure. Es ist übrigens kein 
bloßer Witz, wie manche Leser viel¬ 
leicht gedacht haben, sondern ergibt, 
mit einigen ganz kleinen Ände¬ 
rungen, zwar kein Brötchen, 
aber ein sehr interessantes 
Interferenzenbild: 

100 REH 3roetchen, 
frei nach CPC 3/89, Titelbild 
105 MODE 2:ORIGIN 320,-100 
110 F0R n=100 T0 630 
115 M0VE 0,500 

120 DRAW -320#SIN(320*n/256),-200* 
005(200+170*0.5) 

130 NEXT n 

Speichern Sie die apart gemusterte Py¬ 
ramide, die dieses “Brötchen“-Pro¬ 
gramm ergibt, und bearbeiten Sie sie 
mit MULTISCREEN! Sie werden 
staunen: Jedes Konvertieren dieses Bil¬ 
des ergibt neue Interferenzmuster (z.B. 
Bild 1). Konvertieren Sie auch mehr¬ 
fach hintereinander; besonders hübsch 
die Abfolge OR/XOR oder dreimal 
AND, einmal XOR. Oder Sie spiegeln 
das Bild senkrecht, kombinieren dieses 
Spiegelbild mit dem Ausgangsbild über 
XOR und konvertieren dieses neue Er¬ 
gebnis nach AND (Bild 2). Unendlich 
viele andere Möglichkeiten des Kon¬ 
vertieren und Kombinieren gibt es; 
Sie haben in diesem “Brötchen“-Pro- 
gramm in Verbindung mit MULTI¬ 
SCREEN eine unerschöpfliche Studie 
über das Entstehen und Verschwinden 
von Interferenzen. Nun aber zum The¬ 
ma unseres heutigen Beitrags: die 
Möglichkeiten des Ausfüllens. 

Der FILL-Befehl: Grundlagen 

CPC-464-Besitzer brauchen bei die¬ 
sem neuen Thema das Heft nicht ent¬ 
täuscht beiseite zu legen! Auch sie kön¬ 
nen alle Möglichkeiten dieses Befehls 
in ihren Programmen einsetzen, wenn 
sie den “Emulator“ von M. Uphoff (in 
jedem Sonderheft) verwenden. Dieses 


kleine, aber sehr 
leistungs¬ 
starke 



Programm 
ist ohnehin für 

CPC-464-Besitzer eine fast unerläßli¬ 
che Arbeitshilfe und ermöglicht ihnen 
die Verwendung all der Befehle, die 
sonst nur die “größeren Brüder“ besit¬ 
zen. Auch das COPYSHOP-Pro- 
gramm stellt einen auf allen CPCs lauf- 
fähigen FILL-Befehl zur Verfügung. 
Und schließlich werden Sie auch noch 
einen ebenfalls auf allen CPCs ver¬ 
wendbaren “Exotic-FILL“ kennenler¬ 
nen. Genug Material also auch für den 
CPC 464! 

Die Syntax des FILL-Befehls scheint 
einfach: FILL < färbe >, wobei für 
< färbe > eine dem jeweiligen MODE 
entsprechende PEN-Nr. eingesetzt 
werden muß, also 0 oder 1 im MODE 
2, 0 bis 3 im MODE 1, 0 bis 15 im 
MODE 0. Aber oft rührt sich nach die¬ 
sem Befehl noch gar nichts! Es muß 
nämlich noch eine Bedingung erfüllt 
sein: Der (unsichtbare) Grafik-Cursor, 
von dem der Ausfüllvorgang ausgeht, 
darf nicht auf einem in der sogenannten 
Sperrfarbe gesetzten Punkt liegen. Als 
Sperrfarbe gilt dabei ebenso der PEN, 
mit dem ausgefüllt wird, wie der PEN, 
mit dem der auszufüllende Bereich um¬ 
randet ist. 


Will man also von einer Grafik im 
MODE 2 etwas weglöschen, so genügt 
nicht die Angabe FILL 0; es muß vor¬ 
her auch noch auf den GRAPHICS 
PEN 0 umgeschaltet werden, da der 
FILL-Befehl sonst, weil er auf einer 
Sperrfarbe beginnen müßte, gar nicht 
erst zum Wirken kommt. Daß der aus¬ 
zufüllende Bereich von einer vollkom¬ 
men geschlossenen Linie in der Sperr¬ 
farbe umgeben sein muß, ist Ihnen si¬ 
cher bekannt. Läuft die Farbe aus, so 
hilft MULTISCREEN beim Schließen 
der Lücken: <s>- und <w>-Taste 
setzen beim kurzen Antippen an 
der Position des Cursorpfeils 
V J*. einen Punkt, bei längerem 

Niederdrücken zeichnen 
sie eine senkrechte 
beziehungsweise 
waagerechte Linie. 
Probieren wir das 
Füllen an einem 
lustigen Beispiel 
aus. Wir neh¬ 
men dafür 
f a eine Quadrate- 
Grafik, bei der 
von den vier Seiten 
des Quadrats nur eine 
einzige übriggeblieben ist: 
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5 REM Ausgangsbild zur “Oma" 

10 MODE 2: DEG 

20 a=46:b=26:f=1.02:n=181:r=6:w=5: 

GOSUB 50 

30 a =-46:w=-5:GOSUB 50 
40 CALL &BB18:END 

50 ORIGIN 320+a,200+b 
60 x=r:y=r 
70 FOR i=l TO n 
80 PLOT x,y 
90 DRAW -y,x 

100 xx=x*COS(w)-y*SIN(w):y=x*SlN(w) 
+y#COS(w) 

110 x=xx#f:y=y*f 
120 NEXT i: RETURN 

Wollen wir in diesem Bild die vier gro¬ 
ßen Flächen ausfüllen, um es zum Ge¬ 
sicht einer “Oma im Spitzenhäubchen“ 
umzugestalten, so geht das mit den gro¬ 
ßen Außenflächen einfach. Wir fügen 
die Zeile ein: 

31 ORIGIN 0,0:FILL 1:M0VE 0,639:FILL 1 

Sollen aber auch die beiden Innenflä¬ 
chen und dazu noch die störenden klei¬ 
nen Rauten am oberen Bildrand ausge¬ 
füllt werden, wird es schwierig; wie 
findet man die richtigen Koordinaten? 
Hier hilft MULTISCREEN! Fügen Sie 
die folgende Zeile ein: 

405 IF INKEY(63)=0 THEN TAGOFF: 

L0CATE 1,1:PRINT x,y:TAG 

Laden Sie nun das Ausgangsbild, wäh¬ 
len Sie Option 10 (Ausfüllen), und 
steuern Sie den Pfeil mit den Cursorta¬ 
sten zu den Feldern, die Sie ausfüllen 
möchten. Jedesmal, wenn Sie jetzt die 
x-Taste drücken, werden die X- und Y- 
Koordinaten des betreffenden Punktes 
ausgegeben. Notieren Sie diese Koor¬ 
dinaten, und fügen Sie sie dann in das 
ursprüngliche Programm in der folgen¬ 
den Form ein: 

31 ORIGIN 0,0:FOR i=l TO 9:READ x,y: 

MOVE x,y:FILL 1:NEXT i 

32 DATA 0,0,393,34,393,146,393,198, 290, 
394, 304, 394,320, 394,334,394, 350,394 


Bei jedem Durchlauf der FOR... 
NEXT-Schleife wird nun aus der 
DATA-Zeile ein Koordinatenpaar ein¬ 
gelesen, der Grafik-Cursor dorthin be¬ 
wegt und die entsprechende Stelle aus¬ 
gefüllt. 

Dieses Ausfüllen mehrerer Stellen 
können Sie natürlich, wenn es Ihnen 
nur um das fertige Bild geht, auch mit 
MULTISCREEN erledigen (Option 10 
und f-Taste). Aber wenn Sie die Grafik 
vielleicht als Titelbild eines eigenen 
Programms verwenden möchten, ist es 
sehr reizvoll, das Entstehen auf dem 
Bildschirm mitverfolgen zu können. 
Das Tüpfelchen auf dem i ist bei der 
“Oma“ (Bild 3) dann noch das Zufügen 
der Augen mit der Zeile 33: 

33 TAG:MOVE 272,236:PRINT CHR$(l44); 
:M0VE 360,236:PRINT CHR$(l44); 

2.Der FILL-Wechsel als 
“Bildfresser“ 

Damit sind die Möglichkeiten des 
FILL-Befehls noch lange nicht er¬ 
schöpft! Wichtig ist vor allem die inter¬ 
essante Tatsache, daß ein wiederholter 
Wechsel von FILL 1 -FILL 0 eine Bild¬ 
struktur allmählich aufzehren und da¬ 
bei sehr interessante Zwischenstufen 
hinterlassen kann. Das soll an einer 
reizvollen Quadrate-Grafik gezeigt 
werden: 

5 REM Mosaikstern 

10 MODE 1:DEG:PRINT CHR$(23)CHR$( 1) 

20 a=0:b=0:f=1.02:n=2l4:r=2:w=45: 

GOSUB 60 

30 CALL &BB18:END 

40 ORIGIN 320+a,200+b:x=r:y=r: FOR 
i=l T0 n 

50 PLOT x,y:DRAW -y,x:DRAW -x,-y: 

DRAW y, -x:DRAW x,y 

60 xx=x#COS(w)-y»SIN(w):y=x*SIN(w) + 
y#C0S(w) 

70 x=xx*f:y=y*f 
80 NEXT i: RETURN 



Es lohnt sich übrigens, die ständig 
wechselnden aparten Sternformen die¬ 
ser Grafik im einzelnen zu verfolgen. 
Fügen Sie dazu ein: 

95 CALL &BB18 

Nun aber der FILL-Wechsel! Er wird 
zugefügt durch die Zeile: 

25 ORIGIN 0,0:GRAPHICS PEN 1:CALL 
&BB18: FILL 1:GRAPHICS PEN 0:CALL 
&BB18: FILL 0:GOTO 25 

Beachten Sie dabei, daß vor dem Aus¬ 
füllen mit PEN 0 auch auf GRAPHICS 
PEN 0 umgeschaltet werden muß. Bei 
jedem Tastendruck läuft nun ein weite¬ 
rer Ausfüllvorgang ab, der eine neue 
Bildstruktur ergibt, bis schließlich das 
Ganze aufgezehrt ist. Probieren Sie das 
auch mit der Angabe ORIGIN 320,190 
in Zeile 25! Dabei ergeben sich wieder 
ganz andere Figuren, und wenn Sie die 
beim vierten Ausfüllen mit PEN 1 ent¬ 
standene über AND mit dem ursprüng¬ 
lichen Stern kombinieren, erhalten Sie 
ein reich strukturiertes Gebilde, das an 
ein geschmiedetes Grabkreuz erinnert 
(Bild 4). 

Erproben wir nun die Möglichkeiten 
des wechselnden Ausfüllens an einer 
neuen Pinselgrafik: 

5 REM Eiglobus 

10 MODE 2: PRINT CHR$(23)CHR$( 0) :TAG 
20 SYMBOL 254,170,128,130, 128, 128, 130, 
128, 170 

30 a=280:b=206:c=254 : f=8:p=2: r=210: 
GOSUB 50 

40 CALL &BB18: END 

50 f$="“:f$=STRING$(f,c) :0RIGIN a,b 
60 FOR x=r T0 -r STEP -0.5: y=1.7* 
SQR(rT2-xT2):y=y*SIN(y) 




Bild I: Das nach XOR konvertierte 'Brötchen' (Interferenzpyramide) 


Bild 2: Interferenzkombination 
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Bild 3: Oma mit Spitzenhäubchen 


Bild 4: Grabkreuz 



70 MOVE y, x: PRINT f$;: MOVE y+p,x: 

PRINT f$; 

80 MOVE -y,x:PRINT f$; :MOVE -y+p,x: 

PRINT f$; :NEXT x 
90 RETURN 

Für die elliptisch langgezogene Gestalt 
dieses Bildes ist die Tatsache verant¬ 
wortlich, daß in Zeile 60 der für y zu¬ 
nächst errechnete Wert noch mit 1.7 
multipliziert wird. Je größer dieser 
Faktor wird, desto mehr zieht sich das 
Ei in die Breite; wird er kleiner als 1 
(probieren Sie z.B. 0.5!), so stellt es 
sich auf die Spitze und bekommt einen 
sehr plastisch wirkenden Mittelteil. 
Nun geht es ans wechselnde Ausfüllen. 
Machen Sie das mit einer zugefügten 
Zeile: 

35 ORIGIN 320,190: F0Ri=lT0 3: 

GRAPHICS PEN 1: FILL 1:GRAPHICS PEN 
0:FILL0:NEXT: GRAPHICS PEN 1 

oder über MULT1SCREEN von der 
Mitte aus (Option 1 und abwechselnd 
1,1,1 — Füllen — Tabulatortaste — 
0,0,1 - Füllen, usw). Beginnen Sie 
dabei jeweils in der Mitte des großen 
Loches. Schon beim ersten Ausfüllen 
mit PEN 0 bemerken Sie, wie da zu¬ 
nächst hochinteressante Häuserstruktu¬ 



ren mit Fenstern stehenbleiben, die 
aber dann vom weiterlaufenden Aus¬ 
füllen leider weggelöscht werden. 

3. Das Unterbrechen des 
FILL-Befehls 

Wenn man dieses Ausfüllen unterbre¬ 
chen könnte! Nun, das können wir ja 
mit MULTISCREEN, und zwar über 
die Bufferbegrenzung (siehe Ausgabe 
3/89, Seite 16). Probieren wir es also 
mit der Angabe 1,1,1 und anschließend 
0,0,1, wieder von der Mitte aus, w'obei 
wir beim zweitenmal < CONTROL > 
und f-Taste gleichzeitig drücken, so 
daß die Bufferbegrenzung wirksam 
wird. Nun wird das Ausfüllen gestoppt 
— aber das Ergebnis ist wenig befriedi¬ 
gend, cs entsteht nur in der Mitte der 
hellen Fläche ein großes Loch. Ver¬ 
kleinerung des Buffers hilft auch 
nichts, da wird das Loch eben etwas 
kleiner, aber die Häuser von vorhin 
wollen nicht entstehen. Das hängt mit 
der Arbeitsweise des FILL-Befehls zu¬ 
sammen. 

Er “merkt“ sich alle noch nicht ausge¬ 
füllten Punkte, an denen er vorbei¬ 
kommt. in einem bestimmten Speicher¬ 
bereich, eben dem Buffer. Wenn der 
klein ist, kann er gar nicht so weit wie 
sonst in das Innere einer kompliziert 
gebauten Grafik Vordringen, sondern 
beginnt bald damit, den vollen Buffer 
abzuarbeiten — und dabei entsteht eben 
meist ein einfaches, grafisch nicht sehr 
wirkungsvolles Loch. Wer das COPY¬ 


SHOP-Programm besitzt, hat da schon 
eher Möglichkeiten. Der Ausfüllvor¬ 
gang dieses Programms läßt sich unter¬ 
brechen! Damit ist schon vieles mög¬ 
lich. Aber leider ist dieser FILL-Bcfehl 
nach einem anderen Prinzip gebaut als 
der des CPC-BASIC; er geht viel logi¬ 
scher und zusammenhängender und da¬ 
mit, was das Ausfüllen betrifft, sehr 
sinnvoll vor. Aber gerade infolge die¬ 
ser rationellen Arbeitsweise erzeugt er 
nicht die weit ausgreifenden, bizarren 
Strukturen, die den CPC-FILL gra¬ 
fisch so reizvoll machen. Und der ist 
eine im ROM verankerte Maschinen¬ 
routine, in deren Ablauf, so glaubt man 
allgemein, nicht eingegriffen werden 
kann. Oder sollte das doch möglich 
sein? Nun, wir stellen Ihnen hier ein 
Programm vor, das Sie zwar, falls Sie 
nicht zur DATABOX greifen wollen, 
einige Tipparbeit kosten wird — aber 
es lohnt sich! Sie haben damit die Mög¬ 
lichkeit, den originalen Strukturverlauf 
des CPC-FILL-Befehls an jeder Stelle 
zu unterbrechen und den jeweiligen 
Zustand abzuspeichern. 

Hier dieser FILL-Unterbrecher: 

1000 'FILL-Unterbrecher CPC 664/6128 
(nach einer Idee von Seb.Belzner) 

1010 DATA ED,73,2A,AE,DD,7E,00,F5,CD 
,00,B9,F1,E5,F5,CD,64,FC,CD,FC,F6,01 
,ID,00,CD,DE,FF,3E,07,DA,55,CB,EB,E5 
,D5,CD,03,B9,Dl,El,Fl,CD,27,A3,El,C9 
,22,A5,B6,36,01,1B,ED,53,A7,B6,CD,AD 

,A4,32,AA,B6,CD,B1,A4,CD,B5,A4,DC,93 
,A4,D0,E5,CD,35,A4,E3,CD,63,A4,C1,3E 
1020 DATA FF,32,A9,B6,E5,D5,C5,CD,59 
,A3,CI,Dl,El,AF,32,AB,B6,CD,2C,A4,CD 
,B5,A4,DC,9E,A3,38,F5,2A,A5,B6,E7,FE 
,01,28,2A,32,AB,B6,EB,2A,A7,B6,01,07 
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- Das ist die Software zur PC-International - 

— Jeden Monat neu — 


DATABOX: 

— mehr als der übliche 
Softwareservice 

— bringt ergänzend 
sämtliche Listings 
der jeweiligen Zeit¬ 
schrift und alle 
Programmbeispiele 
auf Kassette oder 
auf 3’ : Diskette. 

— Programme sind, 
soweit system¬ 
bedingt möglich, auf 
allen drei CPC- 
Modellen lauffähig. 
Einzelheiten entneh¬ 
men Sie bitte der 
nebenstehenden 
Aufstellung. 

— soweit die Program¬ 
me nicht Bestandteil 
einer Serie sind, 
befinden sich alle 
Programme als 

,ready to run’ auf der 
Databox. 

— erscheint jeden 
Monat und trägt das 
Titelbild des gleich¬ 
zeitig erscheinenden 
Heftes. 

— der Datenträger zur 
PC International ent¬ 
hält außerdem je¬ 
desmal ein zusätzli¬ 
ches Bonuspro¬ 
gramm, das nicht im 
Heft abgedruckt ist. 



Amstrad 


CPC • PCW JOYCE • PC 


Es 


- Joyce-Programme 
auf dem CPC 


Neu: Die PC-THckklste 
TWfe BASIC2-Programme 


Für alle CPCs als Kassette und 
3“-Diskette. 

Auch als Abonnement mit Preisvorteil 
erhältlich. 


Inhalt der Databox zu Heft 6/89: 

Programm 

464 

664 6128 

Im Zauberreich der Grafik 

• 

• • 

Chip, Chip, Hurra 

• 

• • 

Assemblerecke 

• 

• • 

1-kByte-Lissajous- 

Generator 

• 

• • 

1-kByte-Key 

1-kByte-Bin-Copy 

• 

• 

• • 

1-kByte-CPC-Selektor 

• 

• • 

1-kByte-Vier gewinnt 

• 

• • 

1-kByte-Madwork 

• 

• • 

Auf einen Schlag 

• 

• • 

Unterm Strich 

• 

• • 

Ohne Wartezeiten 

• 


Fensterin 

Auf einen Blick 
Mallard-BASIC für den 

• 

• 

• • 

CPC 6128 (CP/M+) 

Databox 

Checksummer 

Databox 

Emulator 

Databox 

Bonusprogramm: Skiller 
Rasantes Autofahren 

Databox 

• • 

Die DATABOX enthält noch INFO-Files (*.INF) 


Einzelbezugspreise für Databox: 


3‘-Diskette 


Inland: 

Ausland: 


Einzelpreis 24.- DM 

Einzelpreis 

24,- DM 

zzgl Versandkosten 3,- DM 

zzgl, Versandkosten 

5,- DM 

Endpreis 27,- DM 

Endpreis 

29,- DM 


Kassette 


Inland: 

Ausland: 


Einzelpreis 14,- DM 

Einzelpreis 

14,- DM 

zzgl. Versandkosten 3,~ DM 

zzgl. Versandkosten 

S,- DM 

Endpreis 17,- 0M 

Endpreis 

19,- 0M 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Liefe¬ 
rungen ins Ausland Ist Nachnahme nicht 
möglich. 

Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann 
selbstverständlich auch im Abonnement 
bezogen werden. Dadurch sparen Sie 
Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 



Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr 
(6 Lieferungen): 

Im Inland und West-Berlin.90— DM 

Im europäischen Ausland.100,—DM 

Im außereuropäischen Ausland.120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150,— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.180,— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland.240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.300,— DM 

Im europäischen Ausland.320,— DM 

Im außereuropäischen Ausland.360,— DM 

Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 

Widerrufsrecht: Wir garantieren jedem Abonnenten das 
Recht, seine Bestellung innerhalb einer Woche nach Ab¬ 
schluß schriftlich beim DMV-Verlag, Postfach 250, 
3440 Eschwege zu widerrufen. Die rechtzeitige Absen¬ 
dung des Widerrufsschreibens genügt zur Fristwahrung. 


DMV-verlag - Postfach 250 - 3440 Eschwege 

Bitte Bestellkarte benutzen! 
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,00,09,22,A7,B6,EB,2B,E7,47,2B,E7,4 F 
,2B,E7,57,2B,E7,5F,D5,2B,E7,57,2B,E7 
,5F,2B,22,A5,B6,EB,D1,18,C6,3A,A9 
1030 DATA B6,0F,C9,ED,43,AC,B6,CD,93 
,A4,38,09,CD,3F,A4,DO,22,AE,B6,18,11 
,E5,CD,63,A4,22,AE,36,CI,7D,91,70,98 
,DC,19,A4,60,69,CD,35,A4,22,BO,B6,ED 
,4B,AC,B6,B7,ED,42,09,28,11,30,08,CD 
,3F,A4,DC,EB,A3,18,07,E5,60,69,CI,CD 
,19,A4,2A,AE,B6,ED,4B,BO,B6,37,C9 
1040 DATA D5,E5,2A,A7,B6,11,F9,FF,19 
,D1,30,1C,22,A7,B6,2A,A5,B6,23,73,23 
,72,23,D1,73,23,72,23,71,23,70,23,3A 
,AB,B 6 ,77,22,A5,B6,C9,AF,32,A9,B6,D1 
,C9,CD,25,A4,CD,93,A4,D4,3F,A4,DC,EB 
,A3,3A,AB,B6,2F,32,AB,B6,1B,3A,AB,B 6 
,B7,C8,13,13,C9,AF,ED,4B,9F,B6,CD 
1050 DATA 4l,A4,2B,C9,3E,FF,C5,D5,E5 
,F5,CD,AO,A4,Fl,47,CD,82,A4,04,10,04 
,30,4A,AE,77,3S,46,E3,23,E3,ED,52,28 
,3F,19,CD,B9,A4,18,E7,C5,D5,E5,ED,4B 
,Al,B6,CD,AO,A4,B7,ED,52,28,2A,19,CD 
,BD,A4,CD,82,A4,28,21,AE,77,E3,2B,E3 
,18,EB,CD,C5,A4,3 A,A3,B6,AE,Al,C8 
1060 DATA 3A,AA,B6,AE,Al,C8,37,C9,C5 
,D5,E5,CD,CI,A4,CD,82,A4,El,Dl,CI,C9 
,C5,D5,CD,C1,A4,D1,E3,CD,C1,A4,EB,E1 
,C9,CD,2C,BC,C9,EF,24,16,C9,EF,97,16 
,C9,CD,29,BC,C9,CD,26,BC,C9,EF,AF,OB 
,C9,F5,C5,E5,D5,21,Ol,01,CD,75,BB,CD 
,09,BB,FE,FC,28,05,Dl,El,CI,Fl,C9 
1070 DATA CD,8A,BB,CD,06,BB,FE,FC,28 
,08,CD,8D,BB,Dl,E1,CI,Fl,C9,CD,3D,BB 
,ED,7B,2A,AE,C9 

1080 MEMORY &A200:ORIG1N 0,0:SYMB0L 

255,128,192,224,240,248,252,16,8 

1090 FOR i=&A2FA TO &A4F4 :REäD a$: POKE 

i,VAL( u 8t ll +a$) :NEXT 

1100 z=49: LOCATE 1, l:INP'JT"Narr.e 

(max.7 Buchst.): “,n$: PRINT 

CHR$(23)CHR$(1):TAG:GRAPHICS PEN 1 

1110 MOVE x,y:PRINT CHP.$(255); :MOVE 

x,y:CALL &BB18:PRINT CHR$(255); :M0VE 

1120 IF INKEY(2) =0 TUEN y=y-2 

1130 IF INKEY{8) =0 THEN x=x-l 

1140 Ir INKEY(O) =0 THEN y=y+2 

1150 IF INKEY(l) =0 THEN x=x+l 

1160 IF INKEY(53)=0 THEN CLEAP, INPUT:CALL 

&A2FA 

1170 IF INKEY(47)=0 THEN na$=n$+CHR$(z): 
SAVE na$,b,49152,16384:z=z+l:GOTO 1110 
1180 GOTO 1110 

Die Numerierung ab 1000 ermöglicht 
es, daß Sie das Programm jederzeit an 
ein Bildprogramm, an dem Sie gerade 
arbeiten, mit MERGE anhängen kön¬ 
nen. Fügen Sie dann vor dem abschlie¬ 
ßenden END-Befehl ein: GOTO 1000. 
Sie können natürlich auch ein fertiges 
Bild von Diskette laden und das Unter¬ 
brecherprogramm anschließen. Geben 
Sie zunächst einen Namen für das ab¬ 



zuspeichernde Bild ein, und steuern 
Sie, wie in MULTISCREEN, den links 
unten erscheinenden Pfeil mit den Cur¬ 
sorlasten. Die f-Tastc leitet das Ausfül¬ 
len ein, durch zweimaligen Druck vo 
<ESC> wird es gestoppt. Wollen Sie 
es weiterlaufen lassen, drücken Sie 
eine beliebige Taste; wollen Sie aber 
den augenblicklichen Zustand abspei¬ 
chern, so drücken Sie ein drittes Mal 

< ESC > und anschließend die Leerta¬ 
ste. Jetzt wird gespeichert; danach 
kann das Ausfüllen an einer anderen 
Stelle fortgesetzt und ebenso wieder 
unterbrochen werden, nur daß jetzt 
schon nach dem ersten Druck von 

< ESC > gestoppt, nach dem zweiten 
gespeichert wird. So bekommen Sie 
mehrere Füll-Zustände (bis zu 9 sind 
möglich!) auf der Diskette, können die 
besten heraussuchen und über MULTI¬ 
SCREEN bearbeiten (Bild 5). Welches 
Programm liefert Ihnen sonst ein sol¬ 
ches Bild? Leider ist es zu groß, als daß 
man es einfach an MULTISCREEN 
anhängen könnte. Aber in der nächsten 
Ausgabe bieten wir Ihnen eine Mög¬ 
lichkeit, von MULTISCREEN aus mit 
dem FILL-Unterbrecher zu arbeiten. 

4. Altsfüllen, leicht ex otisch 

Leider läuft der FILL-Unterbrecher 
nicht auf dem CPC 464. Damit auch 
dessen Besitzer zu ihrem Recht kom¬ 
men, stellen wir Ihnen abschließend 
ein auf allen CPCs verwendbares Aus¬ 
füllprogramm vor, das Ihnen sicher ein 
Schmunzeln entlocken wird; denn es 
gehl sehr eigenwillige Wege und er¬ 
zeugt höchst exotische Füllmuster. Zu¬ 
dem frißt es sich mit provozierender 
Langsamkeit durch eine komplizierte 
Grafik (nur für solche Bilder, wie z.B. 
den "Eiglobus“, ist es geeignet); Sic 
können sich, während cs arbeitet, ruhig 
zu einer Tasse Kaffee niedersetzen und 
von Zeit zu Zeit den erreichten Zustand 


durch Druck auf die Leertaste abspei¬ 
chern. Geht es Ihnen gar zu eigenwilli¬ 
ge Wege, so können Sie es mit der Ta¬ 
bulatortaste stoppen, den Cursorpfeil 
woanders hinbewegen und dort fort¬ 
fahren. So bekommen Sie krause 
Strukturen, wie sie Ihnen kein anderes 
Programm liefern kann: 

1000 REM Exotic-FILL (nach einer Idee von 
Sebastian Belzner) 

1010 ORIGIN 0,0:SYMBOL 

255,128,192,224,240,248,252,16,8:z=4 

9: GRAPHICS PEN 1 

1020 LOCATE 1,1:INPUT“Name (max. 7 
Buchst.) :",n$:PRINT CHR$(23)CHR$( 1) : 

TAG 

1030 MOVE x,y :PRINT CHR$(255); :M0VE 
x ,y: CALL &BB18: PRINT CHR$(255); : MOVE 
x,y 

1040 IF INKEY(2)=0 THEN y=y-2 
1050 IF INKEY{8)=0 THEN x=x-l 
1060 IF INKEY(0)=0 THEN y=y+2 
1070 IF INKEY(1)=0 THEN x=x+l 
1080 IF INKEY(53)=0 THEN CLEAR 
INPUT: GOTO 1100 
1090 GOTO 1030 

1100 ff=l:buf=& 1000 :bgr =30000 
1110 IF PEEK(&B7C3)=0 THEN st=4 ELSE 
IF PEEK(&B7C3)=1 THEN st=2 ELSE st=l 
1120 nsf=TEST(XP0S,YP0S):x=XPOS:y= 

YP0S:bm=buf:zuo=l:zuu=l 

1130 IF x < 0 OR x > 639 OR y < 0 OR y > 399 
THEN 1200 

1140 f=TEST(x,y):fl=TEST(x-st,y): 
fr=TEST(x+st,y):fo=TEST(x,y+2): 
fu=TEST(x,y-2) :IF f< >nsf THEN 1200 

1150 IF (fu=nsf AND zuu=l) THEN 
xp=x:yp=y-2:G0SUB 1210:zuu=0 ELSE IF 
fu< >nsf THEN zuu=l 

1160 IF (fo=nsf AND zuo=l) THEN 

xp=x:yp=y+2:G0SUB 1210:zuo=0 ELSE IF 

fo< >nsf THEN zuo=l 

1170 IF fl=nsf AND x-st > =0 THEN 

xp=x-st:yp=y:G0SUB 1210 

1180 PLOT x,y,ff: IF INKEY(47)=0 THEN 

na$=n$+CHR$(z) :SAVE na$,b,49152, 

16384:z=z+l:GOTO 1030 

1190 IF INKEY(68) =0 THEN GOTO 1030 


Bild 5: Schön anzuse¬ 
hen, die Stadl im 
Mondenschein 



' 
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1200 zuo=l: zuu=l:IF buf < = bm THEN END 
ELSE buf=buf-3:x=PEEK(buf)+256* 
PEEK(buf+l) :y=PEEK (buf+2)*2: platz 
=platz-3: GOTO 11J30 

1210 IF platz+3>bgr THEN GOTO 10(30 
ELSE IF xp > =0 AND yp > =0 THEN POKE buf ,xp 
MOD 256: POKE buf+1, 
xp \ 256:POKE buf+2 , yp \ 2 : 
buf=buf+3: platz=platz+3: RETURN ELSE RE¬ 
TURN 


Viel Spaß mit diesem Exotic-FILL! In 
der nächsten Ausgabe werden wir dann 
sehen, wie die verschiedenen FILL- 
Befehle sich gegenüber den Farben 
verhalten und wie die Besonderheiten 
der Farbdarstellung im CPC sich für 
neue grafische Strukturen nützen 
lassen. (Friedrich Belzner/cd) 



für 464-664-6128 



10 REM MULTISCREEN [928] 

20 REM by Fr.Belzner [346] 

30 REM Version 23.12.88 [1236] 

40 REM- [1391] 

45 MODE 2: PRINT" Die Streifen die Auftret [16415] 

en entstehen durch das Laden vom Menue. Ab 
hilfe: Laden ohne Menue oder wenn ein Bild 
unter Punkt 1. geladen wird.":CALL 8.BB18 
50 MEMORY &21FF:MODE 2:KEY 11,"MODE 2:GOTO [11607] 
110"+CHR$(13):b=&A200:h=&A241:k=&A224:m=2 
:s=&A20C:ssp=&A272:t=&A235:v = 8.A218: w=&BB18 
: wsp=8.A29 7 : SYMBOL 255,128,192,224,240,248, 

252,16,8 

60 FOR x=&A200 TO &A2F9:READ a$:POKE x.VAL [4807] 

("&"+a$):NEXT 

70 DATA 21,00,CO,11,00,22,01,00,40,ed,bO,C [2005] 
9,21,00,22,11 

80 DATA 00,CO,01,00,40,ed,bO,c9,21,00,62,1 [1974] 

1,00,cO,01,00 

90 OATA 40,ed,bO.c9,21,00,cO,11,00,62,la,b [2843] 
6,77,13,23,3e 

100 DATA 00,bc,20,f6,c9,21,00,22,11,00,62, [3145] 
01,00,40,ed,bO,c9 

110 MODE 2:CALL s:LOCATE 1,1:PRINT"(1) La [11465 ] 
den ":PRINT"(2 ) Tauschen ":PRINT"(3) K 
ombinieren : OR ”:PRINT"(4) Kombiniere 
n : AND ":PRINT”(5) Kombinieren : XOR 
":PRI NT"(6) Speichern " 

120 PR I NT"(7) Konvertieren : OR ":PRINT [8509 ] 
"(8) Konvertieren : AND ":PRINT"(9) Kon 
vertieren : XOR 

130 PRI NT"(10) Ausfuellen " [ 1500] 

140 PRINT"(11) Senkrecht spiegeln" [ 2998] 

150 PRINT"(12) Waagrecht spiegeln" [2321 ] 

160 PRINT STRING$(17,32) [1481] 

170 INPUT"Ihre Wahl? ",z:ON z GOTO 180,200 [4159] 
,210,220,230,240,270,280,290,320,470,490 
180 MODE 2:INPUT"Name, Mode: ",n$,m:n$=n [5721] 

$:IF RIGHT$(n$,4)<>".bin" THEN n$=n$+".bin 


190 n$=n$:MODE m: 
200 MODE m:CALL v 
0 110 

210 MODE m:CALL 
TO 250 

220 MODE m:CALL 
TO 250 

230 MODE m:CALL 
TO 250 
240 CALL 


LOAD n$,&C000:GOTO 250 [ 

’:CALL t:CA L L b:CAL L w:GOT [ 

;:POKE 8.A22B , 8.B6 : CALL k:GO [ 

;:POKE &A22B,&A6:CALL k:GO [ 

i:POKE &A22B,&AE:CALL k:GO [ 


L s:n$=n$:SAVE n$ 
0 110 

250 CALL w:CALL w 
260 DATA Oe,50,21 
bc,7e,dl,12, 10 ,f7 
e5,18,ea,e1,c9 


LOCATE 1,1:INPUT"Name? ",n$:CAL 
,B,&C000,&4000:MODE 2:GOT 


:CALL t :CALL b:GOTO 110 [ 
,00,c0,e5,06,c7,e5,cd,26, [ 
,Od,3e, 00 , b9 ,28, 05 ,el,23, 


1189 ] 
1084] 

2425] 

2343] 

2357] 

4790] 


1396] 

3444] 
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270 POKE 8.A22B ,&B6:GOTO 300 

280 POKE 8.A22B,&A6:GOTO 300 

290 POKE 8.A228 , &AE : GOTO 300 

300 MODE m:CALL s:CALL h:POKE 8.A229,8,22 : CA 

LL k : POKE 8.A229,8.62 : CALL w:CALL w:CALL b:G 

OTO 110 

310 DATA dd,6e,00,dd,66,01,dd,5e,02,dd,56, 
03,dd,7e,04,cd,52,bd,c9 
320 MODE m:CALL s:x=0:y=0 

330 LOCATE 1,1:INPUT"Sperrfarbe, Fillfarbe 
, Buffer? ",sf,ff,bf:CALL s 
340 PRINT CHR$(23)CHR$(1):TAG:ORIGIN 0,0:G 
RAPHICS PEN 1:IF m=2 THEN u=l ELSE IF m=1 
THEN u=2 ELSE u=4 

350 MOVE x,y:PRINT CHR$(255);:WHILE INKEY$ 
="":WENO:MOVE x,y:PRINT CHR$(255); 

360 IF INKEY(2) = 0 THEN y = y-2 
370 IF INKEY(8)=0 THEN x=x-u 
380 IF INKEY(0)=0 THEN y=y+2 
390 IF INKEY(1) = 0 THEN x = x + u 

400 IF INKEY(59)=0 THEN TAGOFF:LOCATE 1,1: 
PRINT CHR$(23)CHR$(0):PLOT x,y:x = x +1:PRI NT 
CHR$(23)CHR$(1);:T AG 

410 IF INKEY(60)=0 THEN TAGOFF:LOCATE 1,1: 
PRINT CHR$(23)CHR${0):PLOT x,y:y=y+2:PRINT 
CHR$(23)CHR$(1); :T AG 

420 IF INKEY(53 ) =0 THEN TAGOFF:LOCATE 1,1: 
PRINT CHR$(23)CHR$(0):GRAPHICS PEN sf:MOVE 
x,y:FILL ff:GOTO 340 

430 IF INKEY(53)=128 THEN TAGOFF:LOCATE 1, 
1:PRINT CHR$(23)CHR$(0):GRAPHICS PEN sf:MO 
VE x , y : CALL 8.A25F , ff , bf , 8,1200 : GOTO 340 
440 IF INKEY(68)=0 THEN CALL b:TAGOFF:LOCA 
TE 1,1:PRINT CHR$(23)CHR$(0):GOTO 330 
450 IF INKEY(47 > = 0 THEN TAGOFF:LOCATE 1,1: 
PRINT CHR$(23)CHR$(0):GOTO 250 
460 GOTO 350 

470 DATA 21,00,CO,11,80,ff,06,64,g5, Ö5 ,d5, 
06,50,7 e,f 5,la,77,fl,12,23,13,1 0 , f 6 , d 1 , e b , 
cd , 29 , bc , eb, el, cd , 26 , bc,, cl.,, 10, e4 , c9 
480 MODE m:CALL s:CALL ssp:GOTO 250 
490 OATA 21 , cf,61, 11,00,cO,01,30,cO,cb,46, 
28,04,cb,ff,18,02,cb,bf,cb,4e,28,04,cb,f7, 
18,02,cb,b7,cb,56,28 1 04,cb,ef,18,02,cb,af, 
cb,5e,28,04,cb,e7,18,02,cb,a7,cb,66,28,04, 
cb,df,18,02,cb,9f,cb,6e,28,04,cb,d7,18,02, 
cb,97,cb,76,28,04,cb,cf,18,02,cb,8f,cb,7e, 
28 

500 DATA 04,cb,c?,18,02,cb,87,12,13,2b,03, 
3e,00,b8,20,a7,c9 

510 MODE m:CALL s:CALL wsp:CALL ssp:GOTO 2 
50 


[1078] 
[ 1269] 
[ 1216] 
[6527] 


[3533] 

[1306] 
[5900] 

[7360] 


[4491] 

[1043] 
[1114] 
[1708] 
[1373] 
[4891] 


[ 5492 ] 


[5533] 


[7890] 


[6276] 

[1840] 

[470] 

[5667] 


[1376] 

[12658] 


[2733] 

[1784] 
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Turbo Esprit 

Hersteller: Hewson 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: ca. 10 DM 

CPC 464 K CPC 664 Kl CPC 6128 K 

Mit dem Turbo 
über Stock und Stein! 

Bereits im Jahr 1986 als Vollpreis- 
Spiel veröffentlicht, kommt der Turbo 
Esprit jetzt von Hewson im Rack- 
It-Budget-Label auf den Markt, und 
das war uns dann doch eine Review 
wert. Turbo Esprit ist, anders als man 
es vom Namen her erwartet, kein 
Rennspiel, bei dem es um Geschwin¬ 
digkeit geht, sondern vielmehr ein 
Fahrsimulator. Sie können unter vier 
verschiedenen Städten wählen, in de¬ 
nen Sie Ihre Fahrpraxis verbessern 
wollen. Jede Stadt unterscheidet sich 
von einer anderen durch ihr Verkehrs¬ 
aufkommen. Wie bereits gesagt, 
kommt es hier nicht darauf an, als er¬ 
ster am Ziel zu sein, sondern vielmehr 
darauf, das Ziel mit so wenig Penalty- 
Punkten wie möglich zu erreichen. Pe¬ 
nalty-Punkte werden für jeden Verstoß 
gegen die Verkehrsregeln vergeben. 
Wie im richtigen Straßenverkehr müs¬ 
sen diese hier auch beachtet werden. So 
ist es doch ratsam, an einer roten Am¬ 
pel zu halten, anstatt mit voller Ge¬ 
schwindigkeit darüber zu fahren. Im 
ersten Moment stört, daß Turbo Esprit 
für den englischen Straßenverkehr aus¬ 
gelegt ist, das heißt, es wird links ge¬ 
fahren. (Wer also im Urlaub mit dem 
Auto nach England will, kann hier 
schon mal ein bißchen üben.) Achten 
Sie darauf, daß Sie nicht auf die Gegen¬ 
fahrbahn kommen, und von Auffahr¬ 
unfällen sollte man auch absehen. Be¬ 
vor Sie abbiegen wollen, sollten Sie 
brav den Blinker setzen. 

Fazit 

Wenn man bedenkt, daß Turbo Esprit 
bereits im Jahr 1986 veröffentlicht 
wurde, muß man natürlich die grafi- 


Achten Sie auf den 
Verkehr, wenn Sie 
mit Turbo Esprit 
durch die Lande fäh¬ 
ren wollen, denn 
sonst gibt es Straf¬ 
punkte! 



sehen Ansprüche etwas zurückstellen. 
Vom Spielprinzip her kann es aber 
durchaus noch mit neueren Spielen 
mithalten. 


Spralnieo Bedienung»- Doku. Grafik Sound Praia/ 

heundlicnkelf rnenlnlion Lolatung 



Einziger Negativpunkt ist der Sound, 
aber man kann ja nicht alles haben. Ins¬ 
gesamt gesehen ist Turbo Esprit ein 
Spiel, das man gerade wegen seines 
Preises von DM 9,95 empfehlen kann. 
Allerdings ist der Preis nur eine Klei¬ 
nigkeit, die den Gesamteindruck ab¬ 
rundet. 

(rg) 


Echelon 

Hersteller: Access 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: DM 39,95 (Cass.) 

CPC 464 K CPC 664 K CPC 6128 K 

Eine Station im Nichts 

Im 21. Jahrhundert in unserem Son¬ 
nensystem: Auf dem erst kürzlich ent¬ 
deckten zehnten Planeten namens Isis 
befindet sich eine geheime Militärsta¬ 
tion mit dem Codenamen Echelon. Sie 
wurde von der International Space Fe¬ 
deration (ISF) errichtet, um die Angrif¬ 
fe der Raumpiraten auf die friedlichen 
Handelsschiffe zu unterbinden. Sie, als 
einer der erfahrensten Weltraumpilo¬ 


ten, sind hier als Patrouillenflieger sta¬ 
tioniert und können dabei über das zur 
Zeit modernste Raumschiff, den C-104 
Light-Cruiser, verfügen. Ihre Aufgabe 
ist es, in der Patrouillenzone 106 nach 
Hinweisen auf den Standort des Haupt¬ 
quartiers der Piraten zu suchen. Diese 
Hinweise sind in Form von Artefakten 
in der gesamten Zone 106 verstreut und 
warten darauf, von Ihnen aufgesam¬ 
melt zu werden. Sie fügen sich am 
Ende zu sechs Puzzles zusammen, die, 
richtig gedeutet und dechiffriert, Sie in 
die Lage versetzen, das bis dahin mit¬ 
tels eines Tarnmechanismus verborge¬ 
ne Hauptquartier der Raumpiraten zu 
orten. 

Pie Weiten des Weltraums 

Mit Echelon präsentiert sich ein Pro¬ 
gramm, das zwischen Such-und-Sam- 
mel-Spiel und Raumschiff-Flugsimula¬ 
tor einzuordnen ist. Das Spielfeld, in 
dem es die versteckten Artefakte zu 
sammeln gilt, ist in 36 Planquadrate 
unterteilt, die jeweils ein 14xl4-Koor- 
dinatensystem darstellen. Neun der 
Planquadrate sind auf einer mitgelie¬ 
ferten Karte bereits entschlüsselt, die 
anderen müssen genauestens durch¬ 
sucht werden; eine langwierige, aber 
nicht langweilige Arbeit: Es finden 
sich jede Menge Reste einer verfalle¬ 
nen Kultur, die in einer derartigen For¬ 
menvielfalt per Vektorgrafik darge¬ 
stellt wurden, daß es stets etwas Neues 
zu sehen gibt: Flußläufe, Brücken, 
Tempel, Förderungsanlagen und so 
weiter. 

Gefahrlose Simulation 

Das Abtliegen geschieht mittels des be¬ 
reits erwähnten Light-Cruiser, dessen 
Steuerung derart komplex ist, daß das 
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Allein der Flug durch 
die abwechslungsrei¬ 
che Szenerie wird bei 
Echelon zum Erlebnis 


Programm fast Simulationscharakter 
erreicht. Die kleine Einschränkung 
muß gemacht werden, da eine “Alles- 
Stop“-Funktion den Spieler in jeder Si¬ 
tuation vor großem Übel bewahrt. So 
ist ein echter Absturz aufgrund eines 
Bedienungsfehlers unmöglich, da das 
Raumschiff selbst im 90-Grad-Sturz- 
flug drei Meter über der Planetenober¬ 
fläche abzubremsen ist. Es verharrt 
dann geduldig in Position, bis man in 
aller Ruhe die Korrekturen getätigt hat. 
Wer wirklich einen spannenden Raum¬ 
flug simulieren will, sollte auf diese 
Taste verzichten. 

Der Cruiser ist mit allen wichtigen 
Funktionen ausgerüstet. Man kann bis 
zu einer Höhe von etwa 13500 Meter 
die Quadranten durchfliegen und in¬ 
nerhalb des vorhandenen Raumes jede 
nur erdenkliche Position einnehmen. 
Man kann sich alle möglichen Blick¬ 
winkel auf den Kontrollmonitor proji¬ 
zieren und diese bis zu einem gewissen 
Punkt zoomen, so daß eine genaue Un¬ 
tersuchung des Planeten bequem er¬ 
möglicht wird. Hat man eines der fast 
250 Artefakte geortet, so wird es per 
Teleport eingeholt. Die unterschied¬ 
lichsten Dinge werden so an Bord ge- 
beamt und automatisch untersucht. Der 
Spieler erhält auf diese Weise Informa¬ 
tionen von unterschiedlichstem Wert, 
es kann allerdings auch zu bösen Über¬ 
raschungen kommen, da einige wenige 
Teile sich als Bomben entpuppen, die 
sinnigerweise durch Teleportieren ak¬ 
tiviert werden. Die so entstehenden 
Detonationen beschädigen in der Regel 
eine für das Weitermachen wichtige 
Funktion des Schiffes und veranlassen 
Sie somit, Ihre Basisstation anzuflie¬ 
gen, in der alle Reparaturen vorgenom¬ 
men werden können. Hier besteht auch 
die Möglichkeit, das Schiff aufzutan¬ 
ken und neu zu bewaffnen. 


Echelon läßt sich in verschiedenen 
Modi spielen. Wer keine Bedürfnisse 
hat, während der Suche nach den Puz¬ 
zleteilen auf Piraten zu treffen und sich 
mit diesen kriegerisch auseinanderzu¬ 
setzen, der kann per Voreinstellung die 
Aggressivität der Gegner bestimmen. 
Das geht von “Lieber kein Gegner“ bis 
zu permanenten Störungen der bösen 
Piraten. Verschiedene Kontrollämp- 
chen, Anzeigen und leider auch die zu 
suchenden Teile sind unglücklicher¬ 
weise nicht ohne Mühen auszumachen. 

Resümee 


Das Programm ist eine gelungene Mi¬ 
schung aus verschiedenen Genres, wo¬ 
bei jedes soweit entfremdet oder erneu¬ 
ert wird, daß fast schon ein neues ent¬ 
standen ist. 
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Echelon sorgt durch seine Komplexität 
— das Spielfeld hat enorme Ausmaße, 
und es sind reichlich Aktionsmöglich¬ 
keiten vorhanden — und seine Vielfalt 
in der Darstellung der Objekte auf der 
Planetenoberfläche für lange Unterhal¬ 
tung. Trotz Komplexität gehört das 
Spiel zu den einfach zu handhabenden 
Programmen, die keiner mehrstündi¬ 
gen Lernphase bedürfen. 

(Joachim Freiburg/mm) 


Obliterator 

Hersteller: Psygnosis 

Vertrieb: Fachhandel 

Monitor: Farbe/Grün 

Steuerung: Joystick, Tastatur 

Preis: stand bei Redaktionsschluß noch 

nicht fest 

CPC 464 H CPC 664 K3 CPC 6128 K 


Die letzte Mission 
des letzten Obliterators? 


Acht Jahre sind nun die Clonekriege 
vergangen, und seitdem hat niemand 
die Hilfe der Obliteratoren benötigt. Ir¬ 
gendwie spüren Sie, daß sich etwas Be¬ 
sonderes ereignet haben muß, denn 
sonst gäbe es keinen Grund, einen 
Obliterator aus dem Ruhestand zurück¬ 
zurufen. Während des letzten Krieges 
waren die Obliteratoren eine Eliteein¬ 
satztruppe, die gewöhnlich dort zu fin¬ 
den war, wo die Schlacht am gefähr¬ 
lichsten war. Jetzt ist es ihr Job, die 
Erde zu retten. Die vereinigte Sternen- 
flotte hatte keine Chance gegen das rie¬ 
sige Alien-Raumschiff, das sich der 
Erde nähert. Nach letzten Informatio¬ 
nen handelt es sich um einen gemein¬ 
schaftlichen Angriff mehrerer Alien- 
Zivilisationen, die sich die Föderation 
bei Ihren Expandierungsbestrebungen 
zu Feinden gemacht hat. Der Plan Ihrer 
Vorgesetzten ist relativ einfach. Sie 
werden mit Hilfe eines Materietrans¬ 
mitters in das feindliche Raumschiff te- 
leportiert und sollen dort verschiedene 
Aufgaben erledigen. Zum einen sollen 
Sie den Plasmaantrieb des Schiffes sa¬ 
botieren, indem Sie die Steuereinheit 
für den Antrieb an sich bringen. Des 
weiteren sollen Sie dann die Steuerein¬ 
heiten für das Schutzschild und Haupt¬ 
waffensystem mitnehmen. Doch damit 
nicht genug, Sie müssen noch eine In¬ 
formationseinheit finden, damit Ihrem 
Hauptquartier genügend Daten für die 
Vernichtung des Alien-Raumschiffes 
zur Verfügung stehen. Selbstverständ¬ 
lich müssen Sie lebend mit diesen In¬ 
formationen zurückkehren, zu diesem 
Zweck müßten Sie dann noch die Steu¬ 
ereinheit des Shuttles an sich bringen, 
es an der richtigen Stelle einsetzen und 
den Rückflug antreten. 

Die Transformation war erfolgreich, 
und Sie landen irgendwo im hinteren 
Bereich des Alien-Raumkrcuzers. Die 
Luft ist atembar, und die Mission kann 
beginnen... 
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Sie sind der Oblitera¬ 
tor. Alleine in einem 
bedrohlichen Alien- 
Raumkreuzer müssen 
Sie die wichtigsten 
Steuereinheiten an 
sich bringen und ent¬ 
kommen, um die Erde 
zu retten 



Die Mission beginnt 

Sie sehen Drak, unseren Obliterator, in 
der Seitenansicht. Drak kann sich nun 
grundsätzlich nach rechts und links be¬ 
wegen, an Türen und Fahrstühlen die 
dahinter- bzw. darüberliegenden Räu¬ 
me betreten. Sind Sie über den Rand 
des Raumes hinausgetreten, scrollt das 
nächste Bild aus der entsprechenden 
Richtung auf den Schirm. 

Gesteuert wird der Obliterator mit Hil¬ 
fe des Joystick (rechts/links/Halt/Feu- 
er) und der Tastatur; die Leertaste 
schaltet zwischen der Actionzeile und 
der Statusanzeige. Das Action-Icon be¬ 
wirkt die Aufnahme eines gefundenen 
Gegenstandes, das Herausnehmen ei¬ 
ner Steuereinheit bzw. die Aktivierung 
des Shuttles nach erfolgreichem Been¬ 
den der Mission. Da Sie während Ihrer 
Mission ständig mit Angriffen feindli¬ 
cher Aliens rechnen müssen, sollten 
Sie versuchen, die verschiedenen Waf¬ 
fen einzusammeln, die in dem Raum¬ 
schiff zu finden sind. Der Phaser, mit 
dem Sie Ihre Mission beginnen, ist an¬ 
fangs wohl recht nützlich, wird Ihnen 
bei der Überwindung stärkerer Gegner 
jedoch kaum helfen können. 

Sie können jedoch ein Maschinenge¬ 
wehr finden, mit dem Sie die überwie¬ 
gende Anzahl organischer Gegner aus¬ 
schalten können. Für unsere gepanzer¬ 
ten Freunde empfiehlt sich die Ver¬ 
wendung des Blasters, dessen 
Geschosse zwar langsam, aber unauf¬ 
haltsam sind. Für noch höhere Anfor¬ 
derungen, wie das Zerstören von Wän¬ 
den, leistet die Bazooka gute Dienste. 
Sie wählen eine Waffe, indem Sie in 
der Statuszeile mit dem Zeiger die ent¬ 
sprechende Waffe an wählen. Danach 
ist die Anzeige der Waffe rot unterlegt. 


Resümee 

Wirklich ein gutes und durchdachtes 
Arcaden-Adventure ist unsere Mei¬ 
nung zu diesem Produkt aus dem Hau¬ 
se Psygnosis. 


SpmiKioo BodUinungs- Do*«»- Grafik Souno Hra«/ 

trwndllchkell meMailon Leitung 



Obwohl die Spielidee nicht unbedingt 
neu ist, gelang Psygnosis eine hervor¬ 
ragende Umsetzung, die nicht nur 
durch die sehenswerte Grafik, sondern 
auch durch flüssige Animationsequen¬ 
zen und eine hörenswerte Musikunter¬ 
malung besticht. Bei der Vielzahl der 
gebotenen Features sollte man sich zu¬ 
erst mit der auf den ersten Blick etwas 
komplizierten Steuerung vertraut ma¬ 
chen, doch ab diesem Punkt wird es 


schwierig, sich wieder von Drak, unse¬ 
rem Helden, zu lösen. Ein Spiel, daß 
sicher nicht langweilig wird, bis man 
die Mission erfüllt hat. 

(mm) 


Dark Fusion 

Hersteller: Gremlin Graphics 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: DM 49,95 

CPC 464 CS CPC 664 CS CPC 6128 K 

Der Drei-Phasen-Test! 

Nur die Besten der Besten können den 
Drei-Phasen-Test des Guardian War- 
rior Corps überstehen. Um nun in die¬ 
ses Corps aufgenommen zu werden, 
müssen Sie eben diesen Test bestehen. 
Begonnen wird der Kampf in den un¬ 
terirdischen Höhlen. Hier sollte es Ih¬ 
nen gelingen, alle Gegner aus dem 
Weg zu räumen. Sollten Sie das ge¬ 
schafft haben, ist es wichtig, eine Fu¬ 
sionskammer zu finden, die Sie in die 
nächste Runde fusioniert. Hier wird 
sich Ihnen ein Oberbösewicht zum 
Kampf stellen, wie er böser nicht sein 
könnte. Anders, als man es bisher 
kennt, ist dieser nicht immer verwund¬ 
bar, sondern nur dann, wenn er sich in 
einer bestimmten Position am Bild¬ 
schirm aufhält. In der dritten Runde 
geht es wieder wie in der ersten Runde 
weiter. 

Ballern de Luxe? 

Oha, sagt man sich, wenn man Dark 
Fusion zum ersten Mal auf dem guten 
alten CPC sieht. Farbenfrohe Grafi¬ 
ken, die das Herz eines jeden CPC- 



Grafik hui, technisch 
pfui. Mehr braucht 
man zu Dark Fusion 
nicht zu sagen 
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»Einzelheft-/Databox-BesteIlung« 

Ich bestelle folgende Einzelhefte bzw. Databoxen 
von »PC Amstrad«: 


Einzelheft 

CPC 

CPC 

Joyce 

PC 1512 

Ausgabe 

Kassette 

3“-Diskette 

3“-Diskette 

51/4“-Diskette 

6- 

DM/Stck 

14.- DM/Stck. 

24,- DM/Stck. 

24,- DM/Stck. 

24.- DM/Stck. 

□ 

1/88 

□ 

□ 

□ 

□ 

□ 

2/88 

□ 

□ 

□ 

□ 

□ 

3/88 

□ 

□ 


□ 

□ 

4/88 

□ 

□ 

□ 

□ 

□ 

5/88 

□ 

□ 

□ 

□ 

□ 

6/88 

□ 

□ 

□ 

□ 

□ 

7/88 

□ 

□ 

□ 

□ 

□ 

8/88 

□ 

□ 

□ 

□ 

□ 

9/88 

□ 

□ 

□ 

□ 

□ 

10/88 

□ 

□ 

□ 

□ 

□ 

11/88 

□ 

□ 

□ 

□ 

— 

12/88 

□ 

□ 

□ 

□ 

□ 

1/89 

□ 

□ 

□ 

□ 

□ 

2/89 

□ 

□ 

□ 

□ 

□ 

3/89 

□ 

□ 

□ 

□ 

□ 

4/89 

□ 

□ 

□ 

□ 

□ 

5/89 

□ 

□ 

□ 

□ 

— 

6/89 

□ 

□ 

□ 

□ 


CPC-Sonderhefte (bitte ankreuzen): 




14,- DM 



14.- DM 

+ PortoA/erpackung 


DM 

Demodisketten: 

□ Best -Nr. 002 ConText PC 5. - DM 

C Best.-Nr. 005 ConTexI Pro 5. - DM 

Best.-Nr 006 TOOLBOX-Spezial 5. - DM 

Best -Nr. 003 EHGO 

O 8cst -Nr, 004 InfoWa'e 

7_ Best.-Nr, 001 Fraktal-3 D + MaskEdlt 

5.- DM 
5,- DM 
5.- DM 

Gesamtbetrag: 


DM 


□ Diesen Betrag zahle Ich mittels des beigelügten Verrechnungsschecks 
C Ich bitte um Lielerung per Nachnahme (nur innerhalb der BRD). 

(8c Nachnahme kommt zum o.g. Betrag noch die Nachnahmegebühr hinzu) 


Unterschrift (bei Minderjährigen Unterschrift des gesetzlichen Vertreters) 


Datum 


Bestellservice für CRC 464 - 664 - 6128 







DMV-Versandservice 

Die preiswerte Alternative für aktive CPC-Anwender! 


Textverarbeitung 


ConText CPC 

So macht Textverarbeitung wirklich Spaß! 

Bisher unerreicht für alle CPCs mit vielen Funktionen 
aus dem PC-Standard: Blockformatieren, Zeilen 
kopieren, Drucken im Hintergrund, mehrspaltiges 
Layout, Großschrift und Unterstreichen am Bildschirm, 
usw. Einfache Bedienung über Statuszeile und doppelt 
belegte Tastenfunktionen, anpaßbarer Druckertreiber, 
eingebautem Taschenrechner, Kalender und ausführli¬ 
cher Bedienungsanleitung. 

Autor: Matthias Uphoff 

Kassette dm 49- 

Diskette dm 59,- 


Anwendungen 


Copyshop 

Das universelle Hardcopy-Programm 
für alle CPCs 

Alle Formate auf allen gängigen Druckern, Ausschnitt¬ 
vergrößerungen, 32 Farbraster, Grafikeditor, Freezer 
und Darstellung der Kopie vor dem Ausdruck auf dem 
Bildschirm. 

Autor: Matthias Uphoff 

Kassette dm 59- 

Diskette dm 69,— 


FAst BAsic COMpiler 

BASIC-1.1-Programme 
um ein Vielfaches schneller! 

Unterstützung der Vortex-Peripherie, aller CP/M- 
Dienstprogramme und von Integer- und Fließkomma- 
Arithmetik. 

Mit ausführlicher deutscher Bedienungsanleitung. 

Für alle CPCs 

Diskette dm 69- 


DIE BASIC2 TOOLBOX 

Das große Buch zum Locomotive 
BASIC2 für PC 1512/1640 

Mit vielen Programmen für die tägliche Praxis: 

Lister, Komprimierung, Crossreferenzgenerator, 
Textdatei-Manager, Hexdump, Taschenrechner 
und ein Disassembler für Intel 8086. 

Buch, ISBN 3-926177-01-2 DM 49,- 

Diskette, pc 5 1/4-zoii dm 29,- 


Unterhaltung 


Fraktal Generator 3-D 


Faszination Computergrafik für alle CPCs: 

Die Entdeckungsreise in das unerschöpfliche 
Wunderland von Fraktalgrafiken 

Autor: Matthias Uphoff 

Kassette dm 59,- 

Diskette dm 69,- 


CYRUS II Schach 

Das bewährte Schachprogramm mit 3D-Display, 
einstellbarer Spielstärke und deutscher Bedienungs¬ 
anleitung 

Für alle CPCs 

Kassette dm 12,95 


STARTEST 

Aktion-Adventure für alle CPCs 
Kassette dm 24,- 

Dis kette dm 29,— 


Fantastic Four 

Vier Superprogramme 
zum kleinen Preis: 


COCKAIGNE 
TERRANAUTI 
FRUITS 
TERRANAUT II 


- Weltraum-Actionspiel 

- Science-Fiction-Adventure 

- Geschicklichkeitsspiel 

- Textadventure 


Für alle CPCs 

Diskette dm 49,— 


CPC Gamebox III 


Brandneu mit 
vier interessanten Spielen: 


ALPHAJET 

KAMPF DEN INSEKTEN 

TELEFOMANIA 

FUNBOUNCER 

Für alle CPCs 

Diskette 


- Weltraumspiel 

- Aktion/Geschick 

- Strategie/Simulation 

- Aktionspiel 


DM 39,— 


CPC Power-Spiele-Paket 


18 tolle Spiele für alle CPCs 
4 Disketten dm 70,- 


KNOW 


Unterhaltsames Frage- und Antwortspiel für die ganze 
Familie mit Editor, Grafikdarstellung und automati¬ 
schen Suchroutinen. 


Für alle CPCs 

Diskette dm 29,- 


Das Software-Experiment 

Eine Serie von zehn hochinteressanten Ausflügen in 
die Welt der Computergrafik, Simulation und Künst¬ 
lichen Intelligenz mit insgesamt 17 Programmen und 
einem umfangreichen 180-seitigen Handbuch: 
Wordmaster, lernfähiges Mini-Schach, Öko-Simulation 
und andere. 

Autor: Matthias Uphoff 

Für alle CPCs 

Kassette dm 59,- 

Dis kette dm 69,- 


Bücher 


CPC Bücherkiste 

Aus dem SYBEX-Verlag 


Schneider CPC - Arbeiten mit dBASE II 

DM 48,— 

Schneider CPC - Arbeiten mit Turbo Pascal 

dm 48,— 

Das Schneider CPC Grafikbuch 

DM 48,— 

Schneider CPC - Erfolg mit Multiplan 

DM 48,— 

Schneider CPC Assembler-Kurs 


Buch und Kasette 

DM 59,— 

Buch und Diskette 

DM 69,— 

Aus dem DATA-BECKER-Angebot 

Das Floppybuch zum CPC 

DM 49,— 

Das CP/M-Trainingsbuch zum CPC 

DM 49,— 

Das Maschinensprachebuch zum CPC 

DM 39,— 

Das große Grafikbuch zum CPC 

DM 49,— 

Taschenbuch: Führer zum CP/M 

dm 19.80 

Das große Buch der 


Public-Domain-Software: 

Freie CP/M-Programme für Commodore 128, 

Schneider CPC und Joyce 

dm 34.80 

Das BASIC-Buch zum 6128 

DM 39,— 

CPC Hardware-Erweiterungen 

DM 49,— 

464 Intern 

DM 69,— 

Unabhängig von der Anzahl der bestellten Produkte 
berechnen wir für das Inland DM 3,- bzw. für das 


Ausland DM 5,- Porto und Verpackung. 
Bitte benutzen Sie die Bestellkarte. 



DMV-Verlag 


Postfach 250 - 3440 Eschwege 
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Fans in die Höhe springen lassen. Hof¬ 
fentlich ist der Rest auch so gut. Aber 
hier wird man dann schwerstens ent¬ 
täuscht. So entpuppt sich Dark Fusion 
als horizontal scrollendes Ballerspiel, 
in dem nur die Grafik gut ist. Bei der 
Programmierung der Kollisionsabfra¬ 
ge etc. wurde dermaßen gepfuscht, daß 
man sich fragt, wie so ein Programm 
überhaupt auf den Markt kommen 
kann? Das Spiel bietet zwar Extrawaf¬ 
fen und alles, was ein Ballerspiel 
braucht, aber wo bitte gibt es sowas: 
Die gegnerischen Sprites berühren ei¬ 
nen, besser gesagt, verschwinden hin¬ 
ter einem und sind dann einfach weg, 
ohne daß etwas passiert? Auch am 
Spielwitz wurde stark gespart. Neben 
Fliegen, Laufen und Schießen gibt es 
nichts, was hier geboten wird. O.K., 
andere Shoot’em Ups bieten auch nicht 
mehr, aber trotzdem haben sie einen 
Touch, der einem immer wieder zum 
Spielen treibt. An Extrawaffen wird 
auch nichts Neues geboten, sondern 
eher Altbekanntes noch einmal aufge¬ 
frischt. 


Fazit 

Dieses Programm kann man nieman¬ 
dem mit gutem Gewissen empfehlen. 
Die Grafiken sind zwar ordentlich und 
farbenfroh, aber das war’s dann auch 
schon. 


Sptfkto* Bedienung* Doku- Qrotik 

«rourvjlicnkeii meMollon 


Sound Pr«*f 
Ltslung 



Wer ein gutes Ballerspiel sucht, sollte 
an diesem Programm vorbeischauen. 

(rg) 


Vindicators 

Hersteller: Tengen 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: DM 29,95 (Cass.) 

DM 49,95 (Disk.) 

CPC 464 Kl CPC 664 K CPC 6128 K 

Außengalaxis TR-I5 

Vindicator, das neue Arcadengame der 
Firma Tengen, entführt den geneigten 
Spieler in die Außengalaxis TR-15. 
Wir schreiben das Jahr 2525. Eine 


Sternchen mul kleine 
Kanister helfen, die 
schwindenden Kräfte 
wieder aufzustocken, 
bzw. die Bewaffnung 
des kleinen Panzers 
zu verbessern 



& -aai 

*•••' 00 
CM 


Flotte von Invasoren bedroht die Si¬ 
cherheit der angesprochenen Außenga¬ 
laxis. Es muß dringend etwas unter¬ 
nommen werden, um die Außengalaxis 
zu retten und eine Invasion auf der 
Erde zu verhindern. 

Um diesem Ziel gerecht zu werden, 
müssen unglaubliche Leistungen voll¬ 
bracht werden. 14 Multilevel-Raum- 
stationen müssen genauestens durch¬ 
sucht werden, um jeweils das Kontroll- 
zentrum zu finden und zu vernichten. 
Kein einfaches Vorhaben, da die Inva¬ 
soren eine gehörige Anzahl an Raumjä- 
gem und Panzern bereitgestellt haben, 
um Ihren Erfolg zu vereiteln. 

Ihre Einsatzwaffe besteht aus einem 
SR-88 Strategie Battle Tank. Dieser 
Panzer zeichnet sich durch hohe Wen¬ 
digkeit aus, die Ihnen mehr als einmal 
das Leben retten kann. 

Die Mission beginnt 

Haben Sie Ihren Panzer bemannt, kann 
das Gemetzel beginnen. Feindliche 
Panzer in Legion beginnen sofort. Ih¬ 
nen einzuheizen. Wer in dieser Situa¬ 
tion nicht die kleinste sich bietende 
Deckung nutzt, der wird recht bald auf 
einen weiteren der anfangs fünf Panzer 
zurückgreifen müssen. Zusätzlich zu 
den Panzern überfliegen Raumschiffe 
das Szenario. Diese werfen Bomben 
und ein direkter Treffer zeigt wesent¬ 
lich mehr Wirkung als mehrere Treffer 
von einem gegnerischen Landfahr¬ 
zeug. Die Geschütztürme, die gele¬ 
gentlich auf dem Spielfeld zu sehen 
sind, verdienen besondere Beachtung. 
Mit einigen gezielten Treffern sind sie 
leicht auszuschalten und offenbaren 
nach ihrer Zerstörung manchmal Ge¬ 
genstände, die vorher nicht sichtbar 
waren. 

Ein großes Manko ist der immense 
Spritverbrauch des SR-88. Nur zu oft 


geschieht es, daß der Sprit ausgeht. 
Ohne Sprit ist das Spiel allerdings für 
Sie zu Ende, so daß man permanent 
nach Kanistern Ausschau halten sollte. 

In einem speziellen Equipmentscreen 
können die eingesammelten Sternchen 
zur Leistungsverbesserung des Panzers 
benutzt werden. Ein gutes Schutz¬ 
schild, hohe Geschwindigkeit und viel 
Treibstoff helfen besonders in höheren 
Levels beim Überleben. 

Sollten Sie einmal keinen Ausgang ent¬ 
decken können, müssen Sie nach wa¬ 
benartigen Gebilden Ausschau halten. 
Einige Schüsse an der richtigen Stelle 
öffnen dann den Ausgang zum näch¬ 
sten Level. 

Resümee 

Vindicator präsentiert sich als gut 
spielbares Arcadengame. 


Spukidee Bedlonunaa- Doku- Gral« Sound Pnfol 

iroundichColi rnentauon Loelur* 



Von der grafischen Aufmachung her 
sehr gut gelungen, besticht dieses Pro¬ 
gramm auch durch ein excellentes 
Scrolling. Während sich die Aufgabe 
anfangs noch mit schnellen Reaktionen 
bewältigen läßt, ist in höheren Levels 
Strategie und Planung vonnöten. An¬ 
gesichts dieser Features wird hier 
wirklich “Value for Money“ geboten. 
Wir möchten Ihnen Vindicator wärm¬ 
stem empfehlen. 

(mm) 


38 PC 6’89 











































































































Software-Review—i 


Arcade Muscle 

Hersteller: World Beaters 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: ca. 50 DM 

CPC 464 Kl CPC 664 K CPC 6128 K 

Fünfmal Power! 

Fünf Arcade-Hits der Superklasse fin¬ 
det man in der neuen Compilation, die 
US Gold unter dem Labelnamen World 
Beaters auf den Markt gebracht hat. 
Fünf Arcade-Hits bedeutet fünf große 
Namen! Fragt sich nur, ob die Pro¬ 
gramme das halten, was die Namen 
versprechen! 

Road Blasters 

Dieses Spiel war ein Vorreiter für eine 
ganz neue Art von Autorennspielen. 
Sollte man einen Gegner nicht überho¬ 
len können, so räumt man ihn einfach 
aus dem Weg. Wie bei allen Vorreitern 
so ist es auch hier passiert, daß die 
Clones teilweise besser sind als das 
Original. 



Die Grafik ist zwar recht ordentlich ge¬ 
zeichnet, doch die Geschwindigkeit ist 
so langsam, daß man fast einschläft. 
Hier hilft auch die Geschwindigkeits¬ 
anzeige nichts, die den Eindruck ver¬ 
schaffen soll, daß es hier schnell zu¬ 
geht. Den Sound hätte man entweder 
ganz weglassen oder verbessern sollen. 

Street Fighter 

Ein Karatekampfspiel der Extraklasse. 
So präsentiert sich der Street Fighter. 
Man prügelt sein Bildschirm-Ego 
durch verschiedene Länder. Von Mal 
zu Mal sind die Gegner schwerer zu be¬ 
siegen. Einer der schwersten ist der 
Ninja, da dieser die unmögliche Ange¬ 
wohnheit besitzt, einfach zu ver¬ 
schwinden, wenn man ihn schlagen 
will. Bei der Grafik wurde etwas an 
den Farben gespart, der Sound be¬ 
schränkt sich auf einfache Schlagge¬ 
räusche, die man beim ersten 



Hören nicht sofort als solche erkennen 
kann. Insgesamt gesehen ist Street 
Fighter ein gut gemachtes Beat’em Up. 

Sidearms 

Sidearms, ein weiteres Spiel dieser 
Compilation, ist dem Genre der Baller¬ 
spiele zuzuordnen. Mit seinem Bild¬ 
schirm-Ego fliegt man über eine hori¬ 
zontal scrollende Ebene, sammelt Ex¬ 
trawaffen und schießt auf alles, was 
sich bewegt. Am Ende des Levels 
kommt der oberböse Bösewicht, und 
das war’s dann auch schon. 


SCORE OOOOOSOO 


S 


f 


zrr/y/yvvTyyyyry’yyy.' 

SPEED 

BIT S.G.MBL 3WRV fiUTO 


Hat man einen Level überstanden, geht 
es weiter in den nächsten etc. etc. Die 
Grafik ist schwach gezeichnet, das 
Scrolling ruckelt, als wenn der Prozes¬ 
sor einen Schluckauf hat. Der Sound ist 
ganz nett gemacht. Was am meisten 
stört, ist die ungenaue Kollisionsabfra¬ 
ge. Schade drum. 



Bionic Commando 

Der Mann mit dem langen Arm. Die 
Aliens haben die Macht über die Erde 
gewonnen, und das Bionic Commando 
soll sie nun wieder von der Erde ver¬ 


treiben. Das Bionic Commando ist eine 
Spezialtruppe. Die Mitglieder zeich¬ 
nen sich dadurch aus, daß sie einen be¬ 
sonders starken Arm haben, mit dem 
sie sich fast überall hochhangeln kön¬ 
nen. Beim Kampf durchs Dickicht und 
die Höhlensysteme stellen sich einem 
natürlich Gegner in den Weg, aber un¬ 
serem Helden ist nichts zu schwer, und 
so kämpft er sich ins Hauptquartier der 
Außerirdischen vor. Die Grafik gehört 
auf dem Amstrad zum schlechtesten, 
was ich kenne, und auf den Sound 
möchte ich gar nicht erst zu sprechen 
kommen. 

1943 


1943 ist der Nachfolger des 
Shoof em-Up-Spielhallenklassikers, 
der genau ein Jahr früher spielt und lei¬ 
der auf dem Index steht. 



Vor zirka 40 Jahren haben die Japaner 
ihre erste große Niederlage vor den 
Midway Inseln hinnehmen müssen. 
1943 - The Battle of Midway wird Ih¬ 
nen nun die Chance gegeben, an dieser 
entscheidenden Schlacht teilzuneh¬ 
men. Die Grafik ist super gezeichnet, 
und auch der Sound kann sich hören 
lassen. Spielerisch macht 1943 Spaß, 
obwohl man immer dabei bedenken 
sollte, daß es sich hierbei um ein hoch¬ 
karätiges Kriegsspiel handelt. 1943 ist 
ein Glanzpunkt dieser Compilation und 
leider auch der einzige. 


SfMoUdoa Bedienung»- Oaku- üraiik BourxJ Praia/ 

freuodllchkdi manta»on Leistung 



Wer allerdings eine Compilation sucht, 
in der viele Arcade-Hits zu finden sind, 
sollte sich Arcade Muscle ruhig einmal 
anschauen. 

(rg) 
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I~ Abenteuer 


Gamers Message 


Spiele, Spiele, Spiele. Haarige Situationen, knallharte Rätsel, verzwickte 
Labyrinthe und scheinbar unbesiegbare Bösewichter, alles Umstände, die 
bisweilen den Spielfluß erheblich hemmen. Die PCI Gamers Message bringt 
gelegentlich Rettung in höchster Not. Mit erprobten Tips und Tricks, Kar¬ 
ten und Cheatmodes finden Sie hier vielleicht gerade den Tip, den Sie gera¬ 
de brauchen. 


Flunkern mit Flunky 

Das die Familienmitglieder des engli¬ 
schen Königshauses mitunter recht ex¬ 
zentrisch sind, kann man in jedem Bou¬ 
levardblatt nachlesen. Das Spiel Flun¬ 
ky jedoch offenbart einen weit tieferen 
Einblick in die Interna des Buckingham 
Palastes. 

Doch nun zu unseren Lösungstips. Zu¬ 
nächst sollte man durch die erste Tür 
gehen und im dahinter befindlichen Ka¬ 
minzimmer Feuer machen. Nun su¬ 
chen Sie das Badezimmer auf und war¬ 
ten darauf, daß Andrew Ihnen einen 
Auftrag erteilt. Nun begibt sich Flunky 
zu Fergie und nimmt dort die Fernbe¬ 
dienung an sich. Nun wieder zurück in 
das Kaminzimmer. Mit dem Feuer¬ 
knopf des Joysticks kann man nun die 
Fernbedienung benutzen. Mit dem He¬ 
likopter über das kleine Schiff fliegen 
und dort den Feuerknopf drücken. 
Stecken Sie das kleine Schiff in die Ta¬ 


sche und gehen zu der nun geöffneten 
Kellertür. Am Hebel auf der Keller¬ 
treppe, solange es geht, ziehen, nun die 
Kellertreppe ganz hinuntergehen. Wei¬ 
ter geht es in den Kellerraum, in dem 
das Skelett liegt, hinter Ihnen fallt das 
Gitter, und Sie sind eingeschlossen. 
Flunky sucht, findet, birgt das ver¬ 
steckte Schiffchen und setzt es aufs 
Wasser. Um wieder aus dem Keller zu 
entkommen, 13mal am Skelett ziehen, 
daraufhin öffnet sich das Gitter. Weiter 
geht es im linken Keller. Nehmen Sie 
die im Wasser versteckte Bombe und 
setzen danach das kleine Schiff auf das 
Wasser. Dieses wird nun ein großes 
herausziehen. Stecken Sie die Bombe 
in die Tasche. Flunky sollte nun das 
große Schiff zu Prinz Andrew bringen, 
es auf der Badewanne abstellen und das 
Autogrammbuch vorlegen. Nachdem 
der Prinz nun sein liebstes Spielzeug 
hat, wird er Ihnen gerne eine Signatur 
in das Büchlein schreiben. 


Um an ein Autogramm von Fergie zu 
kommen, macht Flunky Feuer im Ka¬ 
min und stellt die Bombe aus dem Kel¬ 
ler davor. Die Bombe muß nun so lan¬ 
ge vor dem Kamin liegen, bis sie sich 
rot verfärbt. Die Wartezeit überbrückt 
man am besten in der Küche, wo Flun¬ 
ky sich die Kiste mit der Bezeichnung 
’Red’ besorgt. Legen Sie Flunky nun 
vor Fergies Tisch. Jetzt ist Schnellig¬ 
keit angesagt. Die Streichhölzer (M) 
auf die Bombe legen, die daraufhin an¬ 
fängt zu flackern. Jetzt die Bombe neh¬ 
men, in die Kiste stecken und das Gan¬ 
ze auf Fergies Tisch stellen. In der Ki¬ 
ste erfolgt die gewünschte Explosion 
und verteilt die Farbe, zerstäubt zu 
kleinen Spritzern auf Fergies Gesicht. 
Diese hat somit ihre Sommersprossen 
zurück und gibt Flunky gerne das ge¬ 
wünschte Autogramm. 

Diese Lösungstips sollten einen klei¬ 
nen Einblick in die absurde Logik von 
Flunky gewährt haben. Die Autogram¬ 
me von Prinz Charles, Lady Di und der 
Queen müssen Sie sich leider selbst 
ausknobeln, doch sooo schwer sollte 
das auch nicht zu bewerkstelligen sein. 

Bubble Bobble total 

Auf vielfachen Wunsch finden Sie hier 
noch einmal die genaue Erklärung der 
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Abenteuer—| 


Bonusgegenstände bei dem beliebten 
Saurierspiel Bubble Bobble. 

Schuh: Extraschnelligkeit 

Bonbon: Macht die Blasen schneller 
und läßt sie weiter fliegen. 
Wecker: Lähmt alle Gegner für eine 
Weile. 

Schirm: Transportiert den Spieler 
einige Level weiter. 

Bombe: Vernichtet alle Gegner. 
Kreuz: Vernichtet alle Gegner 

(Wirkt wie Bombe) 

Flasche: Beseitigt alle Gegner und 
läutet eine zeitlich begrenz¬ 
te Bonusrunde ein. 

Ring: Erhöht die Punkte beim 

Springen und Laufen. 

Stab: Gibt nach der Beseitigung 

aller Gegner einen Punkte¬ 
bonus. 

Truhe: , Wirkt wie der Stab, es gibt 
jedoch einen anderen Punk¬ 
tebonus. 

Kanne: Überraschungsbonus, reicht 

von Punktebonus bis zur 
Vernichtung aller Gegner. 

Ghost Hunters Cheat Mode 

Versuchen Sie doch einfach mal, wäh¬ 
rend des Spiels ’DEL’ zu drücken. Das 
Spiel pausiert daraufhin, und Sie kön¬ 
nen in Ruhe ’COMPLEX’ eintippen. 
Mit der Leertaste und Enter gelangen 
Sie zurück in das Spiel. Der Effekt, den 
diese Aktion zeitigt, schlägt sich in der 
Energieanzeige nieder, die wird wie¬ 
der komplett aufgefüllt. Außerdem 
kann man nun mit den Buchstabenta¬ 


sten in andere Räume gelangen. Dieser 
Cheat kann beliebig oft angewendet 
werden. 

Heavy on the Magick 

Der Zauberlehrling Axil ist in Not, die 
Gamers Message hilft. Über unsere Li¬ 
ste mit den Gegenständen, die in die¬ 
sem Spiel gefunden werden können, 
und deren Anwendung werden sicher 
viele Zauberlehrlinge, die bisher noch 
vor Ihren CPCs verzweifeln, hocher¬ 
freut sein. Dazu gibt’s noch ein Bon¬ 
bon: Karten von allen vier Levels des 
Spiels. 

Um das Ganze übersichtlicher zu ge¬ 
stalten, sind im folgenden Text alle Ge¬ 
genstände aus dem Spiel mit ihren ori¬ 
ginal Namen aufgeführt und komplett 
in Großbuchstaben gedruckt. Vor den 
Türen mit dem TOLL SIGN einen Beu¬ 
tel Gold ablegen. Türen, über denen 
NO ENTRY steht, können nur aus der 
Gegenrichtung benutzt werden. An den 
übrigen Türen sollten Sie folgende 
Passwörter versuchen: WOLF, LU- 
NACY, ELEVEN, SILENCE, LAZA, 
SORONOROS. 

Das NOUGAT kann gegen das NUG¬ 
GET getauscht werden. Das EGG in 
das Nest legen. SNAKE tötet die HY¬ 
DRA. Die SHELL kann gegen das 
EGG ausgetauscht werden. Der 
CAULDRON enthält einen Zauber¬ 
spruch, mit dem AI beschworen wer¬ 
den kann. Dort müssen auch SKULL, 
ULNA und THIGH abgelegt werden. 
SLAT tötet den CYCLOPS. Mit 


FLASK kann der GREAT ABYSS be¬ 
treten werden. Das BOOK hat keine 
Bedeutung. Der BALL kann gegen das 
PELLET ausgetauscht werden. Aus 
dem SIGN kann das Losungswort für 
QUADRA PORTA gebildet werden. 
RIB hat keine Bedeutung, HEAD sogar 
negative Auswirkungen. SKULL ist 
der Kopf für AI, ULNA, dessen Arm 
und THIGH, dessen Bein. GARLIC tö¬ 
tet Vampire und ist in WOLFDORP 
versteckt. FOOT ist ein Glücksbrin¬ 
ger, der zusammen mit dem GARLICK 
versteckt ist. PEBBLEs sind Kiesel¬ 
steine, unter denen sich der gesuchte 
ERLSTONE befindet, der den Namen 
LICHGATE enthält. CHESTs und 
CABIN ETs enthalten mitunter Gegen¬ 
stände. Den GHOSTs, GOBLINs, 
WYVERN, TROLL und WRAITHs 
sollte man tunlichst ausweichen oder 
sie töten. AI wird mit dem CAUL¬ 
DRON ACHAD beschworen. Die 
WEREWOLFES mit dem NUGGET 
bekämpfen, MEDUSA mit dem MIR- 
ROR, VAMPIRES mit GARLIC, 
CYCLOPS mit SPLAT und die 
SLUGS mit dem PELLET. Die Zahl 
des GREAT ABYSS ist 24. Der Nach¬ 
name von RABAK ist WATER. 
PHOENIX ist der FIRE BIRD. 
Nachdem das EGG in das NEST gelegt 
wurde, wird er mit NEST PHOENIX 
beschworen. 

So, das war es für diesen Monat in der 
Gamers Message, viel Spaß beim Spiel 
und einstweilen tschüs, bis nächsten 
Monat. 

(hs) 
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I—Programm 


Chip, 

Chip, 

Hurra 

Pfiffiges Spiel mit 'Chips’ 

Bei Chip handelt es sich um ein sehr interessantes Brett¬ 
spiel für zwei Personen oder eine Person gegen den 
Computer. Damit hat der Spieler die Möglichkeit eines 
erweiterten Spielespaßes. 



Ein Brettspiel, das einfach nur Spaß macht. Ob Sie nun allein gegen den 
Computer oder mit einem zweiten Partner spielen, der Spielspaß ist der 
gleiche. Lassen auch Sie sich begeistern! 


Jeder Spieler hat ein Spielbrett mit vier 
Chips zur Verfügung. An der rechten 
Seite läuft eine Zahlenanzeige von 0 bis 
3. Wählen Sie eine Zahl durch Druck 
auf die Leertaste aus. Nun setzen die 
Spieler im Wechsel ihre Chips von 
links nach rechts. 

Die Auswahl der Chips erfolgt durch 
die Zahlen 1 bis 4. Wer zuerst seine 
Chips auf den rechten Feldern hat, ist 
Sieger. 


Ein Spiel mit Tücken 
kann auch entzücken 

Das Spiel hat jedoch einige Tücken, die 
einen besonderen Reiz auf das Spielge¬ 
schehen ausüben. Sie können nicht set¬ 
zen, wenn das Feld, auf dem Sie ste¬ 
hen, oder das Feld, auf das Sie setzen 
wollen, blinkt, wenn Sie eine 0 gewählt 
haben oder Ihre Zeit abgelaufen ist. 
Haben Sie bereits einen Chip im Ziel 
und diesen aus Versehen noch einmal 


angewählt, so dürfen Sie einen anderen 
Zug ausprobieren. Aber Sie sollten 
sich beeilen, denn die Zeit ist knapp.... 

Hinweis 

Besitzer eines CPC 464 können bei der 
Eingabe des Listings die FILL-Befehle 
weglassen. Das Programm läuft dann 
ohne Emulator! 

Viel Spaß, und recht gute Unterhal- 
tung - (Gerd Wartala/cd) 


für 664-6128 

l . . I 

464 mit Emulator 



10 • 


[117] 

20 ' 

*** CHIP *** 

[1176] 

30 • 


[117] 

40 1 

von 

l 191 ] 

50 ' 


[117] 

60 ' 

Tina Kiene 

[927] 

70 ’ 


[117] 

80 ' 

und 

[454] 

90 ' 


[117] 

100 

1 Ge rd Wa r ta1a 

[ 1973 ] 

110 


[117] 

120 

’ 11/1988 

[513] 

130 


[117] 

140 

• ************ 

[ 502 ] 

150 


[117] 

160 


[117] 

170 


1117] 

180 


[117] 

190 

'*** Init. *** 

[449] 

200 


[117] 

210 

OIM name$(2),spfeld(2,4),fafeld(2,4,13 

[ 3792 ] 

) :anfang = l 


220 

ENT 1 , 1 ,-50,1:ENT 2,10,-20,3:ENT 3,10, 

[8219] 


-10,3:ENT 4,10,20,3:ENT -5,1,-SO,1:ENV 1,2 
0,25,2:ENV 2,3,3,10:ENV 3,5 , 15,2 4,5 , - 3,8 : E 
NV 4,5,15,12,5,-3,8:ENV 5,5,15,6,5,-3,8 
230 SYMBOL 245,127,127,127,127,127.127,127 [2465] 
, 127 

240 SYMBOL 246,127,127,127,127,127,127,127 [2209] 
250 SYMBOL 247,0,0,0,0,8,28,54,119 [2190] 

260 SYMBOL 248,119,54,28,8 [1685] 


270 SYMBOL 249,0,24,36,36,36.24 [1427] 

280 SYMBOL 250,0,8,24,40,8,8 [1628] 

290 SYMBOL 251,0,24,36,4,8,28 [1634] 

300 SYMBOL 252,0,56,4,28,4,56 [1591] 

310 SYMBOL 253,0,36,36,60,4,4 [1481] 

320 ' [117] 

330 '*** Titelbild *** [600] 

340 ' [117] 


350 MODE 1:BORDER 0:INK 0,0:INK 1,17:INK 2 [2190] 
,8:INK 3,20 

360 WINDOW#!, 15,2 7,9,20:PAPER 0:PAPER#1,0 [ 1526] 

370 MOVE 64,200:DRAW 320,335,1:DRAW 575,20 [3329] 
0,1:DRAW 320,1,1:DRAW 64,200,1:MOVE 67,200 
:FILL 1 

380 MOVE 320,335:DRAW 370,360,1:DRAW 639,2 [4463] 
00,1:DRAW 381,1,1:DRAW 320,1,1:M0VE 324,3: 

FILL 2 

390 MOVE 575,200:DRAW 639,200,1 [1698] 

400 PEN 1:LOCATE 1,1:PRINT"Graphik":LOCATE [7480] 
9,2:PRINT"von":LOCATE 3,3:PR I NT"Gerd":LOC 
ATE 8,4:PRINT"Wartala" 

410 PEN 3:LOCAT E 30, 1:PRI NT"C": LOCATE 33,3 [ 6561 ] 
:PRINT"H":LOCATE 36,5:PRI NT"I”:LOCATE 39,7 
PR I NT " P " 

420 PEN 1:LOCATE 1,22:PRINT"Programm":LOCA [7055] 
TE 10,23:PRINT"von":LOCATE 3,24:PRINT"Tina 
":LOCATE 8,25:PRINT"Kiene" 


430 LOCATE 33,25:PRI NT"11/88" [ 1 744 ] 

440 ’ [117] 

450 '*** Gewonnen/Ende *** [2671] 

460 ‘ [117] 

470 RESTORE 550:IF anfang=2 THEN CLS#l:GOS [2661] 

UB 600 

480 READ b,c,d,e [ 584 ] 

490 IF b=-l THEN ON anfang GOTO 680,610 [1858] 

500 SOUNO 5,b,d/2,10,e:SOUND 1,b,d/2,15,e: [3958] 

SOUNO 2,C,d,15,e 


Listing Chip 


Listing Chip 
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NEU: 


510 GOTO 460 
520 1 

530 '*»* Sourtd-Oatas *** 

540 1 

550 DATA 239,476,30,5,284.568,30,5,379,758 
,30,5,284,568,30,5,239,478,30,5,239.478,30 
,5,239,478,30,5,213,426,30,5,239.478,30,5, 
253,506,30,5.284,568,60,4,358,716,30,5,358 
,716,30,5,379,758,120,3 

560 DATA 239,478,30,5,284,568,30,5,379,758 
,30,5,284,568,30,5,239,478,30,5,239,478,30 
,5,239,478,30,5,213,426,30,5,239,478,30,5, 
253,506,30,5,284,568,60,4,239,478,30,5,239 
,478,30,5,284,568,120,3 

570 DATA 190,379,60,4,179,358,30,5,179,358 
,30,5,190,379,30,5,239,478,30,5,253,506,30 
,5,284,568,30,5,358,716,30,5,284,568,30,5, 

284,568,60,4 

580 DATA 358,716,30,5,358,716,30,5,379,758 
,30,5,284,568,30,5,284,568,30,5,358,716,30 
,5,379,758,30,5,239,478,30,5,284,568,30,5, 
379,758,30,5,284,568,30,5 

590 DATA 284,568,30,5,239,478,30,5,253,506 
,30,5,239,478,30,5,213,426,30,5,239,478,60 
,4,239,478,60,4,213,426,30,5,213,426,30,5, 
284,568,120,3,-1,-1,-1,-l 

600 PEN»1,3:LOCATE»1,3,2:PRINT»1, gew$:LOCA 
TE#1,1,3:PRINT#1,STRING$(13."*):LOCATE»l, 
6 ,5:PRINT»1,"HAT : LOCATE#1 ,3, 7: PR I NT»1 , GE 
WONNEN!":RETURN 

610 LOCATE» 1,4,9: PRI NT » 1 , "No chiral " 

620 LOCATE*l,5, 11:PRINTM1, "<j/N)?" :a$ = ' 

630 WHILE a$="":a$=INKEV$:WEND 

640 IF UPPERS < a$) = "N" THEN CALL 0 

650 IF UPPERS < a$) = "J" THEN anfang = 1•CLS* 1 : 

sp$="":cpc=0:RANDOMI 1 E TIME:GOTO 660 

660 a$="":GOTO 630 

670 - 

680 '*** Anfang *** 

690 ' 

700 CLS»1:PEN»1,3: LOCATE» 1.2,4: PR I NT#1, "An 
zahl der":LOCATE»1,4,6:PRI NT* 1, "Spieler" 
710 L0CATE#1 , 1 , 8 : INPUT» 1 , " 1 oder 7 . " ; sp$ 

720 IF sp$<"l" OR s p$ >"2" THEN sp$=" : GOTO 

710 

730 s p= V AL(sp$) 

740 FOR 1=1 TO sp 

750 CLS#1:LOCATE«1,5,4:PRINT*1,"Name":LOCA 
TE*1,3,6:PRINT#1,"Spieler“i 

760 LOCATE«l,1,8:PRINT#1,"(max, 6 Bst.)":L 
OCATE#1,1, 10 : INPUT»!,"> ",spieler$(i) 

770 IF spieler$(i)="" THEN spie1er$(1)="Sp 
ieler"+RIGHT$(5TR$(1),1) 

780 IF LEN{spieler$(1))>8 THEN 750 
790 NEXT 

800 IF sp=1 THEN sp1e1er$(2)="CPC 6128";cp 
c = 1 

810 anfang=2 
820 ‘ 

830 '*** Spielfeld *** 

840 ' 

850 MODE 0:BORGER 0:INK 0,3:INK 1,6:INK 2, 
2 6:INK 3,9: INK 4,24:INK 5,6:INK 6,26:INK 7 
,9:INK 8,24:INK 9,0:INK 10,2:INK 11,15,0:1 
NK 1 2, 1 6:IN K 13,9:INK 14,19:INK 15,23 
860 RESTORE 900 

870 FOR k=1 TO 2:FOR j = l TO 4:R EAD b,c,d,e 
:FOR i=1 TO 12 STEP 4 

880 fafeld(k,j,i )=b:fafeld(k,j,i.+ l)=c:fafe 
ld(k,j,i+2)=d:f a f e1d(k,j,i+3)=e 
890 NEXT i , j , k 

900 DATA 1,2,3,4,2,3,4,1,3,4, 1,2,4 , 1,2,3 
910 DATA 5,6,7,8,6, 7,8,5, 7,8,5,6,8,5,6, 7 
920 f a r b=1:sp=1 

930 WINOOW 2, 19,3,23:WINDOW*l , 1 ,20, 1.25:PA 
PER#1,10:PAPER 0:CLS#1:CLS 

940 MOVE 0,0:DRAW 3 1 ,3 1 , 15: DRAW 31,367,15: 
ORAW 607,367,15:ORAW 607,31,15:DRAW 31,31, 
15 

950 MOVE 0,399:DRAW 31,367,15:MOVE 639,399 
:DRAW 607,367,15:MOVE 639,0:DRAW 607,31,15 
960 MOVE 511,144:DRAW 511,255,13:ORAW 607, 
255,13;DRAW 607,144,13:DRAW 511,144,13 
970 MOVE 543,175:ORAW 543,223 , 13:ORAW 5 76, 
223,13:DRAW 576,175,13:DRAW 543,175,13 
980 MOVE 511,144:DRAW 543,175,13:MOVE 511, 


[ 373] 
[117] 

[ 95 7 ] 
[117] 

[ 10098 ] 


[9540] 


[6353] 


[7407] 


[8121] 


[8714] 


[1696] 
[2400] 

[ 1999 ] 

[174g ] 

[ 3745 ] 

[1190] 

[117] 

[ 1346] 
[117] 

[4459] 

[1671] 

[2019] 

[601] 

[471] 

[3561] 

[4643] 

[4533] 

[2152] 

[ 350 ] 
[3274] 

[517] 

[117] 

[ 63 7 ] 
[117] 

[ 10083 ] 


[ 759 ] 

[1959] 

[2374] 

[ 492 ] 

[2058] 
[1793] 
[ 496 ] 

[4100 ] 

( 48 71 ] 


[4829 ] 
I 4508 ] 
[ 3342 ] 
[9094 ] 



Heißer Draht 

jetzt 

mit Durchwahl! 


Haben Sie Fragen, die nicht warten können? Dann 
rufen Sie uns an! Unser Leser-Telefonservice steht 
Ihnen 


jeden Mittwoch 
von 17.00 bis 20.00 Uhr 

zur Verfügung. 

Sie erreichen Ihren Redakteur jetzt direkt unter einer 
Durchwahlnummer. Auf Ihren Anruf freuen sich: 


Claus Daschner (CPC) 

(0 56 51) 80 09 - 16 

Jürgen Borngießer (CPC, PC) 

(0 56 51) 80 09 - 17 

Ralf Schößler (PCW) 

(0 56 51) 80 09 - 18 

Achtung: Die in früheren Heften veröffentlichte 
Sammelnummer ist ab sofort ungültig - diese 
Nummer bitte nicht mehr anwählen! 


PR8-SOFT 

DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 

DISCOLOGY 

CPC DISC TOOLS 


Version 3* 


Für alle CPC’s 
3-Diskette 
nur 

DM 99.- 

ECHTE DESKTOP-GRAFIK AM SCHNEIDER/AMSTRAD CPC 

M I C R 0 D E S I G N 

Für CPC 6128 (oder CPC 464/664 

mit DK-Tronits Speichererweiterung) DM 99.- 

Weitere Angebote und Spiele in unserem Katalog! 

Tel. Bestellung (24 Stunden): 0931/464414, FAX: 0931/464413 
PR8-SOFT Kious-M. Pro<ht • Postfach 500 • D-8702 Margetshöchheim 
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^Programm 


255:DRAW 543,223,13:MOVE 607,255:DRAW 576, 
223,13:MOVE 607,144:0RAW 576,175,13 
990 MOVE 514,150:FILL 14:M0VE 540,228:FILL 
14 

1000 MOVE 585,225:FIIL 13:MOVE 540,146:FIL 
L 13:MOVE 60 7,144:DRAW 576,1 75,14 
1010 PEN 11:LOCAT E 15,5:PR I NT"SP1":PEN#1 , 1 
5:LOCATE#1,3,25:PRINT#1,CHR$(22)CHR$(1 ) spi 
e1e r$(sp):LOCATE#1,12,25:PRINT#1,"sp1e1t! " 
;CHR$(22)CHR$(0) 

1020 PEN 12:LOCATE 15, 17:PRINT"SP2" 

1030 PEN 14:FOR i=l TO 4:LOCATE 14,i+i:PRI 
NT CHR$(249+1):LOCATE 14, 1 1 + 1 + i :PRINT CHR$ 
(249+i):NEXT 
1040 RESTORE 1110 

1050 FOR 1=2 TO 8 STEP 2:FOR j=l TO 12 
1060 READ b:PEN b 

1070 LOCATE j , 1 :PR INT CHR$(245) :LOCATE j,i 
+1:PRINT CHR$( 246 ):NEXT j,i 
1080 FOR 1=13 TO 19 STEP 2:FOR j=i TO 12 
1090 READ b:PEN b 

1100 LOCATE j,1:PRINT CHR$(245):LOCATE j,i 
+1:PRINT CHR$(246 ) :NEXT j , 1 
1110 OATA 1,2,3,4,1,2,3,4, 


1120 DATA 
1130 DATA 
1140 DATA 
1150 DATA 
1160 DATA 
1170 DATA 


1180 DATA 8 


2,3,4 
3,4,1 
1 , 

2 , 

7 , 

8 , 

5 , 

6 , 


1190 PEN 10:FOR 1=2 TO 8 STEP 2:LOCATE 13, 
i:PRINT CHR$(245):LOCATE 13,1+1:PRINT CHR$ 
(246):LOCATE 13, i+11:PRI NT CHR$(245):LOCAT 
E 13,1+12:PRINT CHR$(246):NEXT 
1200 PRINT CHR$(22)CHR$(1):PEN 9:FOR 1=2 T 
0 8 STEP 2 

1210 LOCATE 1,i:PRINT CHR$(247):LOCATE 1,1 
+1:PRINT CHR$(248) 

1220 LOCATE 1,1 + 11:PRINT CHRS( 247 ) :LOCATE 

1,1+12:PRINT CHRS(248):NEXT 

1230 PLOT 68,203,10:TAG:PRINT CHR$(227);" 

CHIP ;CHR$(227) ; :T AGOFF 

1240 PEN 14:LOCATE 2,11:PRINT CHR$(227);:P 

RINT" CHIP ";:PRINT CHRS(227)CHR$(22)CH 

R$(0) 

1250 ' 

12 60 '*** Hauptschi eife *** 

1270 * 

1280 FOR 1=1 TO 4:spfeld(l,1)=1:spfe1d(2,1 
) = 1 :NEXT 

1290 zah1=0:zug$="":2ug=0 

1300 IF cpc=l AND sp= 2 THEN 2000 

1310 IF INKEY(47)=0 THEN 1360 

1320 zahl=zahl+1:IF zahl=4 THEN zahl=0 

1330 PEN 14:L0CATE 17,11:PRINT CHR$(249+za 

hl ) 

1340 SOUND 1,426,1,6:FOR 1 = 1 TO 10:NEXT 
1350 GOTO 1310 

1360 zeit=0:uhr=INT(TIME/300):GOTO 1910 
1370 voll$=INKEY$:IF voll$<>"" THEN voll$= 
""-.GOTO 13 70 

1380 EVERY 5,1 GOSUB 1750 

1390 IF zah 1=0 THEN SOUND 1,568,30,10, ,4:F 

OR 1=1 TO 1000:NEXT:GOTO 1660 

1400 IF cpc =1 AND sp= 2 THEN 2080 

1410 zugS = INKEY$: IF zug$>”0" AND zugS<"5'' 

THEN 1450 

1420 aus= 1 

1430 zelt=INT(TIME/300)-uhr:IF zeit>3 THEN 
SOUND 1,239,40,10, ,3:SOUND 2,478,50,10 , , 2 
:FOR i=1 TO 500:NEXT:GOTO 1660 
1440 GOTO 1390 
1450 aus=0:e=REMAIN(1) 

1460 zug=VAL(zug$> 

1470 IF spfeld(sp,zug)+zahl>13 THEN SOUND 

1 ,568,30,10, ,4:GOTO 1910 

1480 IF fafe1d(sp,zug,spfe1d(sp,zug))=farb 
THEN SOUND 1,956, 12 , 15, ,5:SOUND 2,142,12, 
15, , 5:SOUND 1 , 1012,12,15, ,5:FOR 1=1 TO 100 
0:NEXT:GOTO 1660 

1490 IF fafe1d(sp,zug,zahl+spfe1d(sp,zug ) ) 
= farb THEN SOUND 1,956, 1 2, 1 5 , ,5:SOUND 2,14 

2 , 12 , 15 , ,5:SOUND 1 ,10 1 2,12, 1 5 , ,5:FOR i = l T 
0 1000:NEXT:GOTO 1660 

1500 IF sp=2 THEN spa1te=11:GOTO 1520 
1510 spalte=0 
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[2153] 

[2751] 

[10058] 


[ 1560 3 
[6310] 


[ 769 3 
[911] 
[6423 
[4084 ] 

[1730] 

[ 642 ] 

[4084] 

[951] 

[1454] 

[ 569 ] 
[902 ] 

[1562] 

[ 1046 ] 

[1230] 

[ 985] 
[ 11212 ] 


[2763] 
[3292 ] 
[ 2930 ] 
[4103 ] 
[ 5985 ] 


[117] 

[ 1012 ] 
[117] 

[ 2881 ] 

[1524] 
[583] 
[661] 
[2415] 
[3191 ] 

[1460] 
[436] 
[2559] 
[3187] 

[893] 

[4954] 

[ 759 ] 

[ 2946] 

[ 252 ] 

[ 6832 ] 


[421] 

[ 1484 ] 
[1270] 
[3860] 

[ 7482 ] 


[8707] 


[ 2216 ] 
[ 758 ] 


1520 FOR 1=0 TO 1:LOCATE spfe1d<sp,ZUfl),ZU [4636] 
g+spalte+zug+1:PEN fafeld(sp,zug,spfeld(sp 
, zug ) ) 

1530 PRINT CHRS(245+1):NEXT [1516] 

1540 spfe1d(sp, 2 ug)=spfeid(sp,zug)+zah1 [2793] 

1550 IF spfeld(sp,zug)=13 THEN SOUND 1,239 [4106] 
,30,10,2,2:SOUND 2,2 13,30,10, ,3 

1560 IF spfeid(sp,zug)<13 THEN SOUND 1,142 [4355] 
,20,12,1:SOUND 2,190,20,12,1,1:SOUND 3,200 
,10,12,1,2 

1570 PEN 9:FOR 1=0 TO 1:LOCATE spfeld(sp,z [7054] 
ug) , zug + spalte + zug+1:PRINT CHR$(22)CHR$(1) 

CHR$(247+i):NEXT:PRINT CHR$(22)CHR$(0):FOR 
1=1 TO 800:NEXT 

1580 gew=0 [284] 

1590 FOR 1=1 TO 4 [450] 

1600 IF spfeldCsp,1)=13 THEN gew=gew+l [2433] 

1610 NEXT [350] 

1620 IF gew< 4 THEN 1660 [ 779 ] 

1630 SOUND 1,239,80,10:SOUND 2,119,80,10:S [9273] 

OUND 1, 142,40,10:S0UND 2 , 71,40, 10:SOUND 1, 

179,40,10:SOUND 2\89,40,10:SOUND 1,239,40, 

10:SOUND 2,119,40,10:SOUND 1,142,80,10:SOU 
ND 2,71,80,10 

1640 gew$=spieier$(sp):FOR 1=1 TO 5000:NEX [3249] 
T:GOTO 330 

1650 • [117] 

1660 '*** Spielwechsel *** [1327] 

1670 • [117] 

1680 aus=0 [249] 

1690 GOSUB 1750 [861] 

1700 LOCATE#1,3,25:PRINT#1," " [2C64] 

1710 IF sp =1 THEN sp=2:INK 11,15:INK 12,16 [3295] 
,0:GOTO 1730 

1720 sp=1:INK 12,16:INK 11,15,0 [1602] 

1730 PE N#1, 15:LOCATE #1,3,25: :PRINT#1,CHR$( [4228 ] 
22)CHR$(1)spieierS(sp)CHR$(22)CHR$(0):GOTO 
1290 

1740 ' [117] 

1750 '*** Farbwechsel *** [1336] 

1760 ’ [117] 

1770 ON färb GOTO 1780,1790,1800,1810,1780 [1844] 
, 1790,1800,1810 

1780 INK färb,6:GOTO 1820 [702] 

1790 INK farb,26:GOTO 1820 [2004] 

1800 INK farb,9:GOTO 1820 [1192] 

1810 INK färb,24 [455] 

1820 IF aus=0 THEN e=REMAIN(1):RETURN [1677] 

1830 farb=INT(RND*4)+l [994] 

1840 IF sp=2 THEN farb=farb+4 [2250] 

1850 ON färb GOTO 1860,1870,1880,1890,1860 [1745] 
, 1870,1880,1890 

1860 INK farb,6,19:RETURN [696] 

1870 INK färb,26,8:RETURN [1490] 

1880 INK farb,9,17:RETURN [7813 

1890 INK farb,24,4:RETURN [1246] 

1900 ' [117] 

1910 '*** Zug moeglich ? *** [1942] 

1920 • [117] 

1930 zugm=0 [775] 

1940 FOR 1=1 TO 4 [450] 

1950 IF spfeld(sp,1)+zah1>13 THEN zugm=zug [2112] 
m+1 

1960 NEXT [350] 

1970 IF zugm=4 THEN SOUND 1 , 568,30, 10, ,4:F [ 376 7 ] 
OR 1=1 TO 1000:NEXT:GOTO 1660 

1980 GOTO 1370 [409] 

1990 ' [117] 

2000 •**# CPC spielt *** [979] 

2010 ' [117] 

2020 zah1=zah1 + l :IF zah1=4 THEN zahl=0 [2415] 

2030 wähl=wah1+INT(RND*2)+l [1257] 

2040 PEN 14:LOCATE 17,11:PRINT CHRS( 249 + za [3191] 
hl ) 

2050 SOUND 1,426,1,6:FOR 1 = 1 TO 10:NEXT [ 1460] 

2060 IF wähl>50 THEN wah1=0:G0T0 1360 [1803] 

2070 GOTO 2020 [359] 

2080 aus=1:FOR 1=1 TO 1000:NEXT [358] 

2090 zug=INT(RND*4)+l [1357] 

2100 zeit=INT(TIME/300)-uhr:IF ze1t>3 THEN [6832] 
SOUND 1,239,40,10,,3:SOUND 2,478,50,10,,2 
:FOR i=1 TO 500:NEXT:GOTO 1660 

2110 IF spfeld(2,zug)+zah1>13 THEN zug=zug [6143] 
+1:1F zug > 4 THEN zug=l:GOTO 2110 ELSE GOT 
0 2110 

2120 aus=0:e=REMAIN(1) [1484] 

2130 GOTO 1480 [307] 
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Die Assemblerecke 


Heute: The BASIC String Orchestra & 

The Assembler Punks 

Gepflegte Geigenklänge und Stakkato-Hardrock unter einen Hut zu brin¬ 
gen, erfordert ohne Zweifel einen geschickten Arrangeur. Vor einer ähnli¬ 
chen Aufgabe steht mitunter der CPC-Programmierer, wenn er heiße As¬ 
sembler-Rhythmen in biederes BASIC-Barock einbinden will. Als Schnitt¬ 
stelle zwischen den beiden Sprachebenen dienen im allgemeinen CALL- 
oder RSX-Befehle, die es erlauben, Werte oder Variablen an ein Maschi¬ 
nenprogramm zur Bearbeitung weiterzureichen. Diese Folge der Assembler¬ 
ecke soll zeigen, welche Feinheiten bei der Parameterübergabe zu beachten 
sind und wie man in Assembler auf den relativ komplexen Datentyp ’String’ 
zugreift. 


Ein unbestreitbarer Vorteil der Program¬ 
miersprache BASIC ist die äußerst flexi¬ 
ble Handhabung von Zeichenketten 
(Strings). Will man zum Beispiel in Tur¬ 
bo Pascal mit Textvariablen operieren, 
so müssen diese am Anfang des Pro¬ 
gramms deklariert werden, wobei es dem 
Programmierer obliegt, den notwendi¬ 
gen Speicherplatz abzuschätzen. Das 
sieht etwa so aus: 

VAR Name: STRING[20j 
Die Variable 'Name' kann danach maxi¬ 
mal 20 Zeichen aufnehmen. Die Länge 
dieser 'statischen' Strings läßt sich wäh¬ 
rend des Programmablaufs nicht mehr 
ändern, auch wenn zufällig ein Name mit 
mehr als 20 Buchstaben auftaucht. 

Wohin mit all den netten 
Zeichenketten? 

Der BASIC-Interpreter des CPC pflegt 
dagegen seine Strings dynamisch zu ver¬ 
walten: Jeder Zeichenkette wird exakt 


der Platz im Speicher eingeräumt, den sie 
gerade benötigt, ohne daß sich der Pro¬ 
grammierer irgendwelche Gedanken dar¬ 
um zu machen braucht. Wer in Assem¬ 
bler auf BASIC-Strings zugreifen will, 
muß sich jedoch wohl oder übel damit be¬ 
schäftigen, wie der Interpreter dieses 
Kunststück vollbringt. Ein kurzes Bei¬ 
spiel verdeutlicht sofort, daß es sich hier¬ 
bei keinesfalls um ein triviales Problem 
handelt. Nach der Zuweisung 
name$ = "Otto“ 

werden irgendwo im Speicher vier Bytes 
reserviert, um die ASCII-Nummern der 
vier Buchstaben abzulegen. Ein paar Pro¬ 
grammzeilen weiter heißt es dann viel¬ 
leicht 

ruime$ = “Johann Karl Fürchtegott “ 
und die gleiche Variable benötigt plötz¬ 
lich 23 Bytes — wohin damit? Da es eine 
gigantische Platzverschwendung wäre, 
für jede Textvariable von vornherein die 
maximal möglichen 255 Byte zu reser¬ 
vieren, bleibt nur die Möglichkeit, den 


String an einer anderen Stelle unterzu¬ 
bringen. Aus diesem Grund kann sich die 
Speicheradresse des Variableninhalts 
während des Programmablaufs mehr¬ 
mals ändern. Damit er trotzdem auffind¬ 
bar bleibt, legt der Interpreter für jeden 
String ein drei Bytes umfassendes 'For¬ 
mular' an, das folgende Informationen 
enthält: 

1) die Länge des Strings (1 Byte) 

2) das Low- und Highbyte der aktuel¬ 
len Stringadresse (2 Bytes) 

Dieser sogenannte Stringdeskriptor 
(Stringbeschreiber) stellt dabei eine Art 
Wegweiser zum Variableninhalt dar. Zu 
beachten ist in diesem Zusammenhang, 
daß bei leeren Strings (zum Beispiel nach 
name$ = ““) das Längenbyte eine 0 ent¬ 
hält und die Stringadresse Undefiniert ist! 

Otto, der Speicherzombie 

Doch was geschieht mit Otto, nachdem 
Johann Karl Fürchtegott seinen Platz ein¬ 
genommen hat? Traurig, aber wahr: Er 
fristet fortan ein nutzloses Dasein als 
Speicherleiche. Die vier Bytes bleiben 
zwar erhalten, aber es gibt keinen Des¬ 
kriptor mehr, der auf sie verweist. Macht 
man exzessiv von Stringoperationen Ge¬ 
brauch, so wird der Speicher des CPC 
von HIMEM an abwärts zunehmend mit 
solchen Zombies bevölkert, da der Inter¬ 
preter konsequent für jeden geänderten 
String neuen Speicherplatz mit Beschlag 
belegt. Das gilt selbst dann, wenn eine 
Zeichenkette kürzer als ihr Vorgänger 
ist. Durch ihre hemmungslose Vermeh¬ 
rung werden die lebenden und toten 
Strings natürlich irgendwann mit dem 
Speicherbereich für normale Variablen 
kollidieren, der vom BASIC-Programm- 
code an aufwärts wächst. In diesem Fall 
bleibt dem Interpreter nichts anderes 
übrig, als eine große Aufräumaktion zu 
starten, die mit 'Garbage Collection’ 
(Müllabfuhr) bezeichnet wird. 

Der CPC 464 durchsucht zu diesem 
Zweck alle existierenden Deskriptoren, 
um den String mit der höchsten Adresse 
zu finden und ihn anschließend an das 
obere Ende des Stringbereichs (unterhalb 
HIMEM) zu verschieben. Danach wird 
analog der String mit der zweithöchsten 
Adresse ermittelt und nach oben verscho¬ 
ben, dann der String mit der dritthöch¬ 
sten Adresse... bis schließlich alle Zei¬ 
chenketten, für die ein Deskriptor exi¬ 
stiert, wieder optimal komprimiert 'unter 
der Decke’ hängen. 

Dieses Verfahren hat jedoch einen gra¬ 
vierenden Nachteil: Da der CPC 464 für 
jede einzelne Zeichenkette alle Deskrip¬ 
toren abklappern muß, um die Adressen 
zu untersuchen, sind bei n Strings insge¬ 
samt n Vergleiche notwendig. Ein Array 
der Form DIM name$(199) erfordert al¬ 
lein schon 200 x 200 = 40000 Schleifen¬ 
durchläufe, bis endlich Ordnung 
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herrscht. Wenn der CPC 464 gut mit 
Strings abgefüllt ist, kann ihn die Müllab¬ 
fuhr während des Programmablaufs 
durchaus für einige Minuten lahmlegen 
— bei dieser Gelegenheit hat schon man¬ 
cher arglose Anwender einen Absturz 
vermutet und mit einem verzweifelten 
Reset dem Treiben ein Ende bereitet. 

Wegen dieser unerfreulichen Erschei¬ 
nung wurde die Stringverwaltung der 
Nachfolger CPC 664/6128 verbessert. 
Diese Rechner stellen jeder Zeichenkette 
zwei zusätzliche Verwaltungsbytes vor¬ 
an, von denen das erste genau wie der 
Deskriptor die Länge und das zweite eine 
Null enthält. Während einer Garbage 
Collection werden die zwei Bytes be¬ 
nutzt, um dort zeitweise die Adresse des 
zu dem String gehörigen Deskriptors ein¬ 
zutragen. Diese zusätzliche Verwaitungs- 
information erspart eine Menge Suchar¬ 
beit und beschleunigt die Müllabfuhr so 
weit, daß sie sich im Normalfall über¬ 
haupt nicht mehr bemerkbar macht. Der 
Preis ist natürlich ein um zwei Byte höhe¬ 
rer Speicherplatzbedarf pro Zeichen¬ 
kette. 

Quäle nie einen Deskriptor 
zum Scherz... 

Das wichtige Fazit dieser Betrachtungen: 
Wer in Assembler Deskriptoren manipu¬ 
liert, muß sehr umsichtig vorgehen, um 
nicht die BASIC-Stringverwaltung zu sa¬ 
botieren. Auf dem CPC 464 kann man 
zum Beispiel einen String kürzen, indem 
man einfach die im Deskriptor angegebe¬ 
ne Länge verkleinert. Beim 664/6128 ist 
das nicht mehr ohne weiteres möglich. 
Die Länge im Deskriptor muß auf jeden 
Fall mit dem Inhalt der zwei Verwal¬ 
tungsbytes übereinstimmen, damit bei 
der nächsten Garbage Collection kein 
Chaos ausbricht! 

Doch wie kommt man überhaupt in As¬ 
sembler an die BASIC-Strings heran? 
Mit dem CALL-Befehl lassen sich be¬ 
kanntermaßen bis zu 32 Ganzzahlwerte 
als Parameter übergeben, die der Inter¬ 
preter in einer Tabelle ablegt, deren 
Startadresse im IX-Register zu Finden ist. 
Von dieser Möglichkeit wurde in den bis¬ 
herigen Folgen der Assemblerecke be¬ 
reits reichlich Gebrauch gemacht; eine 
Zusammenfassung aller Fakten finden 
Sie in der Info-Box. Hier soll zunächst 
noch eine Feinheit erörtert werden, die 
leicht für Verwirrung sorgt. Es gibt näm¬ 
lich prinzipiell zwei verschiedene For¬ 
men der Parameterübergabe: 

1) CALL by Value: Dieser Fall liegt 
vor, wenn man einen Zahlenwert oder 
eine Ganzzahl-Variable als Parameter 
einsetzt, zum Beispiel in der Form CALL 
&AOOO,x%. Dem Maschinenprogramm 
wird dabei der Wert von \ % übermittelt. 


der sich mit den folgenden Befehlen ins 
BC-Registerpaar einiesen läßt: 

10 'LDC,(lX+0) ;Lowbyte x% nach C 
20 ' LD B, (IX+1) jHig'nbyte nach B 

Es besteht jedoch keine Möglichkeit, den 
Inhalt der Variablen zu ändern, da ihre 
Adresse unbekannt bleibt. 

2) CALL by Reference: Diese Form der 
Parameterübergabe liegt vor, wenn man 
mit Hilfe des Klammeraffen die Varia¬ 
blenadresse übergibt, also zum Beispiel 
mit CALL &A000,@x%. Um den Wert 
der Variablen nach BC zu befördern, ist 
jetzt etwas mehr Aufwand nötig: 

10 ’LDL,(IX+0) ;Speicheradresse x% 

20 'LDH, (IX+1) ; nach HL 
30 'LDC,(HL) ;Lowbyte nach C 
40 'INC HL ;Adresse+1 
50 'LD B, (HL) ;Highbyte x% nach B 

Der indirekte Zugriff hat jedoch den Vor¬ 
teil, daß man über die Variablenadresse 
als Referenz auch etwas in x% hinein¬ 
schreiben kann. Während ein CALL by 
Value eine reine Einbahnstraße darstellt, 
erlaubt ein CALL by Reference die 
Rückgabe von Ergebnissen an das aufru¬ 
fende BASIC-Programm! 

Adreßverwaltung mit 
doppeltem Boden 

Und nun zurück zu den Strings. Da der 
CALL-Befehl grundsätzlich 2-Byte- 
Werte übergibt, bleibt hier nur die Me¬ 
thode ’by Reference’, zum Beispiel in der 
Form CALL &A0O0,@name$. Dem 
Maschinenprogramm wird in diesem Fall 
die Adresse des Stringdeskriptors mitge¬ 


teilt. Im Prinzip handelt es sich hier sogar 
um eine doppelte Referenz: Man erhält 
die Adresse einer Stelle, an der die 
Adresse der Zeichenkette zu finden ist. 
Um das erste Zeichen auszulesen, müßte 
man also so vorgehen: 

10 ’LDL,(IX+0) ;Deskriptoradresse 
20 'LDH, (IX+1) ;nach HL 
30 'INC HL ;Länge überspringen 
40 'LDE,(HL) jStringadresse 
50 'INC HL 

60 'LDD,(HL) ;nach DE laden 
70 ’LDA,(DE) ;1. Zeichen nach A 

Besitzer eines 664/6128 sollten sich nicht 
dadurch täuschen lassen, daß diese Rech¬ 
ner im Unterschied zum 464 auch die di¬ 
rekte Angabe eines Strings bzw. einer 
Stringvariablen erlauben (zum Beispiel 
CALL &A000,“Otto“). Hierbei handelt 
es sich nur um einen gesteigerten Bedie¬ 
nungskomfort: Auf Maschinenebene er¬ 
scheint nach wie vor die Deskriplor- 
adresse als Parameter! 

Wozu kann man nun den Zugriff auf die 
BASIC-Zeichenketten effektiv gebrau¬ 
chen? Manipulationen, die die Länge ei¬ 
nes Strings verändern, sind, wie bereits 
gesagt, nicht unbedingt ratsam. Trotz¬ 
dem lassen sich auf Anhieb zwei interes¬ 
sante Anwendungen finden, die ein lah¬ 
mes BASIC-Programm enorm beschleu¬ 
nigen können: 

1) Sortieren eines Stringarrays: Die 
Deskriptoren eines Stringarrays (zum 
Beispiel DIM name$(400)) liegen glück¬ 
licherweise im Speicher ordentlich hin¬ 
tereinander. Übergibt man die Adresse 
des ersten Deskriptors mit CALL 
adr,@name$(0), so kann man auch be- 

CALL—Info u 


Aufrufformat für CALL-Befehl mit n Parametern: 
CALL adr, pi , P 2 , pa . . . , po 

Als Parameter pi..p« können eingesetzt werden: 

- Zahlenwerte im Bereich -32768... 65535 

- Ganzzahl-Variablen (Integer) 

- Realvariablen im Bereich -32768... 65535 

(werden auf ganze Zahlen gerundet) 

- Nur 664/6128: Strings oder Stringvariablen 

(übergeben wird die Deskriptoradresse) 

- Variablenadressen mit »Variablenname 

(bei Stringvariablen wird die Deskriptor¬ 
adresse übergeben) 

Belegung der Z80-Register beim Binsprung: 

A = n (Anzahl Parameter) 

E = Lowbyte p B 
D = Highbyte p B 
IX = Start Parametertabelle 

Aufbau der Parametertabelle: 

(IX+0) = Lowbyte p n 

(IX+1) = Highbyte p B 

(IX+2) = Lowbyte p>-i 

(IX+3) = Highbyte p B -i 


(IX+2*n-2) = Lowbyte pi 
(IX+2*n-l) = Highbyte pi 


Die Möglichkeiten 
der Parameterüber¬ 
gabe bei einem 
CALL-Befehl. 
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quem auf alle folgenden Deskriptoren zu¬ 
greifen. Die häufigste Operation bei Sor¬ 
tier-Algorithmen ist das Vertauschen von 
Variableninhalten. Das ist in BASIC eine 
sehr zeitaufwendige Angelegenheit, da 
massenweise Strings umkopiert und neu 
angelegt werden müssen. In Assembler 
kann man sich jedoch darauf beschrän¬ 
ken, die Deskriptoren (also nur 3 Bytes) 
zu vertauschen, was bei erheblich redu¬ 
ziertem Aufwand den gleichen Effekt 
hat! 

2) Suchen von Zeichenketten: Und da¬ 
mit wären wir bei unserem Beispielpro¬ 
gramm angelangt. Es handelt sich um 
eine Maschinenroutine, die feststellt, ob 
eine bestimmte Zeichenkette (such$) in 
einem Stringarray vorhanden ist, und 
falls ja, an welcher Position. Die Para¬ 


meterübergabe ist dem Listing zu entneh¬ 
men; das Maschinenprogramm erhält da¬ 
bei folgende Informationen: 

- Die Deskriptoradresse des ersten 
Strings im Array 

- Die Deskriptoradresse der zu su¬ 
chenden Zeichenkette 

- Die Anzahl der zu durchsuchenden 
Arraystrings (by Value!) 

- Die Adresse einer Integer-Variablen 
(by Reference!), die nach erfolgrei¬ 
cher Suche den Arrayindex enthält. 
Bei Mißerfolg wird -1 zurückge¬ 
geben. 

Als besonderes Extra kann der Such¬ 
string Fragezeichen als ’Joker’ enthalten, 
die für jedes beliebige Zeichen stehen. 
Dazu ein kurzes Beispiel: Sie haben eine 
Adreßverwaltung geschrieben, die be¬ 


reits 400 Anschriften im Array adress$ 
verwaltet und einen Herrn namens Meier 
im korrespondierenden Array na$ aus¬ 
findig machen soll. Oder hieß er Mayer? 
Mit dem folgenden Ansatz findet ihn das 
Programm auf jeden Fall: 

500 sh$="M??er u : p$=0 
510 CALL &A200,@na$(0) ,@sh$,400,@p£ 
520 if pjf=-l THEN PRINT sh$;“ nicht gefun¬ 
den!" ELSE PRINT adress$(p!?) 

Die Analyse des Assembler-Listings 
dürfte mit den begleitenden Kommenta¬ 
ren keine Probleme aufwerfen. Wer Lust 
hat, noch etwas zu basteln, kann versu¬ 
chen, die Routine ein Stück ’fehlertole- 
ranter’ gestalten, so daß sie den Such¬ 
string sogar unabhängig von Groß- 
/Kleinschreibung findet.... 

(Matthias Uphoff/cd) 


100 • 

*** Zei 

c 

henke 

t te 

i n 

St 

r 

i nga 

r r 

ay 


110 ' 

*** suc 

h 

en 










120 ' 













130 ’ 

Aufruf 

m 

i t 










140 ' 

CALL ad 

r 

, @ar r 

a 

y$ 

(0) 

, @s 

u 

ch$ , 

an 

z . 


150 1 

ad r = 


Au f ru 

f 

ad 

res 

se 






160 ' 

ar ray 

$ 

(0) = 


1. 

St 

r i n 

g 

i m 

Ar 

ra 

y 

170 ' 

such$ 


= zu 

s 

uc 

hen 

der 


St r i 

ng 



180 ' 

anz = 


Anzah 

1 

d 

er 

Ar r 

a 

y-St 

ri 

ng 

s 

190 ' 

p% = 

E 

rgebn 

1 

SV 

a r i 

ab! 

e 

(Po 

s i 

ti 

on ) 


200 


210 

‘0RG &A200 



220 

1 



230 

' CP 4 

4 Parameter? 


240 

'RET NZ 

-> ne 1n, streike 

n 

250 

1 LD C,(IX+2) 

bc mit Anzahl 1 

aden 

260 

'LD B,(IX+3) 



270 

'LD L,(IX+4) 

Deskriptoradres 

se 

280 

‘ LD H, (IX + 5) 

Suchstring nach 

hl 

290 

'LD A,(HL) 

Laenge nach A 


300 

' INC HL 



310 

'LD E,(HL) 

Adresse Suchstr 

i ng 

320 

'INC HL 



330 

'LD D,(HL) 

aus Deskr. nach 

de 

340 

'LDL, (IX + 6 ) 

Deskriptoradres 

se 

350 

'LD H,(IX+7) 

1 . Arraystring 

n. hl 

360 

' 



370 

';*** Hier beginnt die Suchsch 

1 e i f e 

380 

'NEXT DEC BC 

Anzahl - 1 


390 

'BIT 7,B 

Anzahl negativ? 


400 

'JR NZ,FINITO 

- >j a, nicht gef 

unden 

410 

'CP (HL) 

Laenge gleich? 


420 

'JR NZ,WEITER 

- > nein,weiter v 

e r g 1 . 

430 

'OR A 

Laenge = 0? 


440 

'JR Z,GEFUND 

- > j a,String gef 

unden 

450 

1 



460 

';*** jetzt Vergleich zeichenw 

eise 

470 

'PUSH HL 

Adr. Ar raydes k r 

i pto r 

480 

'PUSH DE 

Adr. Suchstring 


490 

' PUSH BC 

und Anzahl rett 

en 

500 

' LD B , A 

Laenge Suchstri 

ng 

510 

' LD C , A 

nach B und C 


520 

'INC HL 



530 

' LD A,(HL) 

Adr. Arraystrin 

g 
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540 

' INC HL 


;aus Deskriptor nach 

550 

'LD H,(HL) 


;h1 holen 

560 

'LD L,A 



570 

■ 



580 

'LOOP LD A, 

(DE) ;Suchstring-Zeichen 

590 

'CP "?" 


;= Joker? 

600 

'JR Z.NCHAR 


;->ja, weiter vergl. 

610 

'CP (HL) 


;= Arraystr.-Ze i chen? 

620 

'JR NZ,FALSCH ;->nein,verschieden 

630 

'NCHAR INC 

H 

L ; Ad ressen der 

640 

'INC DE 


jnaechsten Zeichen 

650 

DJ N Z LOOP 


;->weite r im Text 

660 

1 



670 

'FALSCH LD 

A 

,C;Laenge wieder nach A 

680 

'POP BC 


;Anzahl holen 

690 

'POP DE 


;Ad r. Suchstring 

700 

'POP HL 


;Adr. Arraydeskriptor 

710 




720 

' ;an dieser 


Stelle gilt imme r 

730 

; Zerof1ag 

= 

1 (Z): gefunden 

740 

; Ze rof1ag 

= 

0 (NZ): nicht gefunden 

750 

'WEITER INC 


HL 

760 

' INC HL 


;Ad resse in hl auf 

770 

' INC HL 


jnaechsten Deskriptor 

780 

'JR NZ,NEXT 


;-> naechster Vergl. 

790 

l 



800 

• ; *** Suchs 

c 

hleifenende, gefunden 

810 

'GEFUND LD 

L 

,(IX+ 2 ) ;ursprueng1iche 

820 

'LD H,(IX+3 

) 

;Anzahl nach hl 

830 

' SCF 


;Carry = 1 

840 

'SBC H L ,BC 


;Anzahl-Zaehler-1 

850 



;= Position in hl 

860 

'LD C,L 


;Ergebnis nach bc 

870 

'LD B,H 



880 

1 



890 

';*** Hier 

E 

insprung, falls nicht 

900 

' ; *** gefund 

en (bc = &FFFF = -1) 

910 

'FINITO LD 

L 

,(IX+0) ;Adr. Ergebnis- 

920 

'LD H, ( IX+1) 

;variable p nach hl 

930 

'LD (HL),C 


jPosition eintragen 

940 

’ INC HL 



950 

’LD (HL) ,B 



960 

' RET 


;-> Basic 
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I—Tips & Tricks 


100,- DM 

für 1 kByte 

Die Herausforderung 

Spüren Sie auch die Frühlingsgefühle, die in den letzten 
Tagen immer stärker werden? Dann geht es Ihnen ge¬ 
nauso wie uns. Da die Tage immer länger werden, 
möchte man sich nicht mehr so intensiv mit seinem ge¬ 
liebten Rechner beschäftigen, sondern ein wenig Son¬ 
nenlicht auftanken. Wer dann immer noch Lust und 
Laune hat, ein oder mehrere Programme einzutippen, 
der bekommt hier genau das richtige in die Hände. Mit 
vielen kurzen, aber vollständigen Programmen können 
Sie in Windeseile ein neues unterhaltsames Spiel oder 
eine Anwendung eintippen und auch gleich ausprobie¬ 
ren. Auf jeden Fall Anden auch Sie das passende Pro¬ 
gramm für sich. Wenn Sie womöglich auch ein selbstge¬ 
schriebenes Programm besitzen und es anderen Lesern 
oder Leserinnen zur Verfügung stellen möchten, dann 
sollten Sie es uns zur Ansicht schicken. Für weitere In¬ 
formationen lesen Sie bitte die Bedingungen am Ende 
dieses Textes. Aber nun geht es weiter, mit vielen guten 
Programmen zum schnellen Abtippen. Lassen Sie sich 
einfach überraschen. 


1. Programm: Lissajous-Generator 

In Heft 3/89 fanden die PC-Besitzer ein Programm namens 
Lissajous-Grafiken. Wem die wundervollen Pixelbilder ge¬ 
fallen haben, hat jetzt die Gelegenheit, auf seinem CPC ähn¬ 
liche Bilder entstehen zu lassen. 

Jules Antoin Lissajous (1822 bis 1880) warein französischer 
Physiker, der die Bewegung von Teilchen unter dem Einfluß 
periodischer Schwingungen untersuchte. Diese Bewegungen 
werden im Programm ’Lissajous-Generator’ in Form von 
Kurven dargestellt. 

Die Anzahl der betrachteten Schritte sowie die Y-bezie- 
hungsweise die X-Frequenz der periodischen Bewegungen 
sind variabel und können vom Benutzer eingegeben werden. 
Sofern beide Frequenzen gleich gewählt werden, ergibt sich 
ein Kreis. Je höher die Schrittzahl gewählt wird, desto ge¬ 
nauer wird die Berechnung, was allerdings auf Kosten der 
Rechenzeit geht. 

Für gute Resultate eignen sich als Beispiel folgende Werte: 

S=200, X= 1 bis 20, Y= 1 bis 20 

Und nun wünschen wir Ihnen viel Spaß beim Ausprobieren. 

(Karl Fischer/cd) 

2. Programm: Key 

oder der Schlüssel zum Erfolg. Sehr erfolgreich verspricht 
das Programm beim Bearbeiten von BASIC-Programmen zu 
sein. Der Grund: Bei einer Tastenbelegung mit Befehlen 



oder Texten weiß man hinterher nicht mehr genau, welche 
Taste mit welcher Kombination belegt wurde. Ganz genau 
dort greift dieses Utility hilfreich ein. Doch leider nur auf 
dem CPC 6128, was aber nicht weiter schlimm sein sollte. 

Programmbeschreibung: KEY 

Das Programm ’KEY’ ist der Bildschirmgestaltung bei Mi- 
crosoft-GW-BASIC nachempfunden, in dessen unterster 
Bildschirmzeile nach der Eingabe des Befehls ’KEY ON’ die 
aktuelle Funktionstastenbelegung eingeblendet wird. 

Das Programm beginnt nach seinem Start mit RUN 
'KEY.BAS’ mit der Einteilung des Bildschirms in Mode 2 in 
zwei Fenster. Fenster Nr. 1 benutzt den Zeilenbereich 1-23, 
Fenster Nr. 2 Zeile 25. Im zweiten Bildschirmfenster er¬ 
scheint GW-BASIC-mäßig die Anzeige der Funktionstasten¬ 
belegung im Zehnerblock den CONTROL+TASTE-Bereich 
betreffend. 

Danach erfolgt programmgemäß die Umdefinition aller 
Funktionstasten. 

Zum Schluß erfolgt die Ausgabe des DIRECTORIES der 
eingelegten Diskette. 

Die Tastaturbelegung sieht nach Programmbeendung wie 
folgt aus: 


Normal 

mit SHIFT 

mit CONTROL 

0 

RUN“ 

CLS:RUN 

1 

CLS:LIST #8 

CLS: LIST 

2 

CLS 

CLS:CAT 

3 

& 

CLS: LOAD“ 

4 

A 

RENUM 

5 

B 

AUTO 

6 

C 

EDIT 

7 

D 

ERA,“ 

8 

E 

REN,“ 

9 

F 

DELETE 

PUNKT 

KOMMA 

SAVE“ 


Die Tastenkombination CONTROL + ENTER ist mit einem 
AUTOSTART belegt. Sie fahren dazu mit dem COPY-CUR- 
SOR auf den Anfangsbuchstaben des zu startenden Pro¬ 
gramms und drücken dann besagte Tasten, um das Pro¬ 
gramm zu starten - einfacher geht’s nicht mehr! 

Diese Tastaturbelegung können Sie selbstverständlich leicht 
Ihren eigenen Bedürfnissen anpassen! 
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Noch einige Tips: Speichern Sie das Programm vor dem 
Erststart erst einmal mit SAVE“KEY.BAS“ ab, da es sich 
zum Schluß selbst aus dem Speicher löscht - > NEW-Befehl! 

Hinweis: 

Der POKE-Befehl in Zeile 60 bewirkt eine zeilenweise Aus¬ 
gabe der Zeilen eines Listings; danach wird ein erneuter Ta¬ 
stendruck erwartet; dies gilt auch beim Listen auf dem 
Drucker! 

In der Zeile 50 wird ein großes ’X’ für das Steuerzeichen 
'Control 4- X’ verwendet. Bitte ändern Sie das dementspre¬ 
chend beim Abtippen um. Also jedes X’ löschen und 
'Control + x’ eingeben. 

(Andreas Herzog/cd) 


3.Programm: Bin-Copy 

Dieses Programm ist für all diejenigen gedacht, die Proble¬ 
me mit dem Überspielen von binären Programmteilen haben. 
Doch mit diesem kleinen Utility sollten Sie in der Lage sein, 
problemlos ungeschützte Binär-Files von der Diskette zu ko¬ 
pieren. 

Das Programm benutzt die im Sonderheft Nr.6 auf S.97 ab¬ 
gedruckten Peeks zum Feststellen von Start- und Autostart¬ 
adresse sowie von der Länge. 

PEEK(&A76A)+256*PEEK(&A76B) ergibt die Start¬ 
adresse 

PEEK(&A76D)+256*PEEK(&A76E) ergibt die Länge und 
PEEK(&A76F) + 256*PEEK(&A770) ergibt die Autostart¬ 
adresse. 

Diese Peeks stehen aber erst nach einem Load “File“ im Spei¬ 
cher. Deshalb auch das ’ON ERROR GOTO’ in Zeile 40, 
welches ein Memory Full, soweit es möglich ist, abfängt. 

(Jürgen Sellmaier/cd) 


4.Programm: CPC Selektor 


Wenn Sie die PC International regelmäßig lesen, fällt Ihnen 
sicherlich auf, daß der Selektor schon als Programm für den 
JOYCE erschienen ist. Werden Sie dieses Taktikspiel auch 
auf dem CPC meistern? 

Anleitung: 

Der Spieler muß versuchen, am Ende des Spiels mehr Punkte 
als der Computer zu haben. Man kann Zahlen zwischen 2 
und 59 auswählen, wobei allerdings immer eine Division mit 
einer anderen Zahl ohne Rest durchgeführt werden muß. Die 
gewählte Zahl kommt auf das Konto des Spielers, alle Teiler 
auf das Konto des Computers. 

Viel Spaß! 


(Volker Nordhoff/cd) 


5. Programm: Vier gewinnt 

Es ist die lkByte-Version eines schon oft umgesetzten Strate¬ 
giespiels, indem man versucht, durch Einwerfen von Spiel¬ 
steinen in ein Raster, eine senkrechte oder waagerechte Vie¬ 
rer-Reihe zu bekommen. Es ist für zwei Spieler ausgelegt, 
wobei für jeden Spieler eine separate Steuerung zur Verfü¬ 
gung steht. Diese ist für Spieler 1 auf die Cursortasten und 
für Spieler 2 auf die Tasten Z, \ und Space gelegt. Sie kann 
auch frei nach Wunsch geändert werden (in Zeile 10 die 
ASCII-Werte ändern: 1 und r für links und rechts sowie b für 


Feuer). Man steuert nun den Pfeil auf die Reihe, in die man 
seinen Spielchip einwerfen möchte und drückt Feuer. Die 
Chips werden farblich voneinander unterschieden. Wer zu¬ 
erst eine oben genannte Reihe erreicht, ist Sieger des Spiels. 

Spannendes Duell wünschen 


(Thorsten Mertsching/cd) 


6.Programm: Madwork 

MADWORK ist ein Geschicklichkeitsspiel für zwei oder 
mehrere Spieler. Diese Spieler müssen nun versuchen, die 
vorgegebenen Wörter so schnell wie möglich einzutippen, 
denn die Zeit läuft mit. Doch Vorsicht, wer ein Wort falsch 
eingetippt hat, bekommt je nach Wortlänge eine Zeitstrafe, 
und er muß das Wort nocheinmal eingeben. Die Schwierig¬ 
keit besteht darin, daß die Tastenwiederholfunktion durch 
den Befehl SPEED KEY beschleunigt wurde. Je nach Level 
ist es dann nicht mehr möglich, einen einzelnen Buchstaben 
einzugeben. Der Spieler muß versuchen, die Buchstaben, die 
zuviel auf dem Bildschirm sind, mit DEL oder CLR zu lö¬ 
schen. Dabei kann es natürlich passieren, daß der vorherige 
Buchstabe gelöscht wird, man braucht also etwas Fingerspit¬ 
zengefühl für dieses Spiel. 

Zu Beginn des Programms werden Sie nach dem Level ge¬ 
fragt, geben Sie eine Zahl von 1-5 ein (höhere Zahlen werden 
zwar angenommen, das Spiel ist aber dann witzlos, weil man 
die Wörter ohne Schikane eingeben kann), je niedriger die 
Levelzahl, desto schwieriger ist es. Es werden auch Komma¬ 
zahlen zum Beispiel 2.3 angenommen. Nachdem Sie Level 
und Wortanzahl eingegeben haben, meldet sich der Compu¬ 
ter mit READY. Nun notieren Sie sich die Gesamtzeit des er¬ 
sten Spielers und starten das Programm erneut. Jetzt ist der 
nächste Spieler an der Reihe. Er sollte nun natürlich versu¬ 
chen, die Zeit des ersten Spielers zu unterbieten. Wer das 
Programm vorzeitig abbricht, sollte die erste Funktionstaste 
im Zehnerblock drücken, damit eine normale Eingabe mög¬ 
lich ist. 


(Matthias Herrmann/cd) 


Die Bedingungen 

Hier die Bedingungen unseres Wettbewerbs: Wir suchen 
komplette Programme (bitte ohne Steuerzeichen!), die funk¬ 
tionsfähig möglichst auf allen drei CPCs laufen (was nicht 
heißen soll, daß wir bei besonders guten keine Ausnahme 
machen) und die nicht länger als 1 kByte sind (Anzeige auf 
dem Datenträger gilt!). Der Preis für solche Programme be¬ 
trägt 100,— DM. Senden Sie uns Ihr Programm (maximal 
zwei Programme!) auf Datenträger (Diskette/Kassette) mit 
Programmbeschreibung (möglichst in ASCII-Form mit auf 
dem Datenträger) zu, und zwar an den 


DMV-Verlag 
Postfach 250 
Stichwort 100, — DM 
D-3440 Eschwege 
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für 464-664-6128 

10 MODE 2:WINDOW 1,80,2,25:PR INT#1,"Bin-Co [4461] 
py by 19B8 by Sellmaier Juergen" 

20 LOCATE 4,6:INPUT"Ladename (Enter fuer C [5847] 
at) ",a$:IF a$="" THEN CAT:CALL &BB06:CLS:G 
OTO 20:ELSE 30 

30 LOCATE 4,6:INPUT"Savename (Enter fuer L [5187] 
adename)",b$:IF b$="" THEN b$=a$ 

40 ON ERROR GOTO 80 [1546] 

50 LOCATE 4,6:PRINT "Legen Sie bitte die Q [6052] 

ue11-Di sc ein {Taste)":CALL &8B06 

60 LOAD a$ [405] 

70 GOTO 90 [312] 

80 MEMORY HIMEM-(PEEK(&A760) + 256*P£EK(i.A76 [3307 ] 

E ) ) : RESUME 60 

90 LOCATE 4,6:PRINT "Legen Sie bitte die Z [7062] 

Iel-Dlsc ein (Taste)":CALL &BB06 

100 SAVE b$,b,PEEK(&A76A)+256*PEEK(&A76B), [4611] 

PEEK(&A76D)+256*PEEK(&A76E),PEEK(&A76F)+25 

6* PEEK(&A 7 70) 

Listing Bin-Copy 


10 ‘ KEY - HELP 

20 MODE 2:WINDOW 1,80,25,25:CLS:BORDER 0:1 
NK 0,0:INK 1,26 

30 DIM aX(4):F0R 1X = 0 TO 9:READ a$:POKE@a* 
(0)+1X,VAL("&"+a$):NEXT 
40 DATA 23,23,7e,b7,c8,cd,5a.bb.18,f7 
50 CALL@aX(0)' 0 XRUNX 1 XLISTX 2 XCATX 3 
XLOADX 4 XRENUMX 5 XAUTOX 6 XEDITX 7 X 1 ERA 
X 8 XIRENX 9 XDELETEX P. XSAVEX 
60 WINOOW 1,80,1,23:CLS:POKE &AC00,1:P0KE 
&BB0A,PEEK(&BB07) 

70 POKE &ACOO,1:POKE &BBOA,PEEK(&BB07) 

80 KEY DEF 15,0,128,152,151:KEY DEF 13,0,1 
29,153,141:KEY DEF 14,0,130,154,142:KEY OE 
F 5,0,131,38,143:KEY DEF 20,0,132,65 , 1 44 : K 
EY DEF 12,0,133,66,145:KEY DEF 4,0,134,67, 
146:KEY DEF 10,0,135,68 , 147:KEY DEF 11,0,1 
36,69,148:KEY DEF 3,0,137,70,149 
90 KEY OEF 7,0,138,44,150:KEY 150,"SAVE"+C 
HR$(34):KEY 151,"CLS"+CHR$(13)+"RUN'+CHR$( 
13 ) : KEY 152 , "RUN"+CHR$( 34) ;KEY 141. “CLS"+'C 
HR$(13) + "LI ST “:KEY 153."CLS"+CHR$(13) + "LI 
ST# 8":KEY 154,"CLS"+CHR$(13):KEY 142,"CLS" 
+CHR$(13)+"CAT"+CHR$(13) 

100 KEY 143,"L0AD"+CHR$(34) :KEY 144, "RENUM 
":KEY 145,"AUTO ":KEY 146,"E0IT ":KEY 147 
,"IERA,"+CHR$(34) :KEY 148, "IREN, "+CHR$(3 4 ) 
:KEY 149, "DELETE ":KEY 140,STRING$( 12,224 ) 
+ CHR${250) +"RUN "+CHR$(34)+CHR$(13 ) :LOCATE 
1,6:CLS:CAT:NEW 

Listing Key-Help 


1 INK 0,2:INK 1,20:INK 2,6:INK 3,9:PAPER 0 [2507] 


:BORDER 20:PEN 1 

2 MODE 1:PEN 1 [1036] 

3 INPUT"Schr1ttzahl";s [2765] 

4 INPUT"Y-Frequenzy [1146] 

5 INPUT"X-Frequenz";x [1397] 

6 CLS [91] 


7 FOR 1= 1 TO 50:PLOT 1,i,1:DRAW 640,i:NEX [1985] 
T 1 

8 FOR 1= 350 TO 400:PLOT 1,1:DRAW 640,1:NE [2278] 
XT 1 

9 FOR k= 1 TO 50 STEP 1:PLOT k,1.DRAW k,4 [1668] 
00:NEXT k 

10 FOR k= 590 TO 640:PL0T k,1:DRAW k,400:N [3929] 
EXT k 

11 PRINT CHR$(22)+CHR$(1):PEN 3:Lo6aTE 11, [4894] 

1:PRINT"LISSAJOUS-GENERATOR" 


12 PEN 0:LOCATE 4,3 : priNT"S.: " ;s;" ";"Y , : " [2533] 
; y ; “ " ; " X . : "; x 

13 PLOT 320,330,2 [776] 

14 FOR a=0 TO 2*PI STEP 2*PI/s [1943] 

15 DRAW 130*SIN(a*y)+320,130*COS(a*x)+200 [1913] 

16 NEXT a [383] 

17 LOCATE 16,24:PEN 2:PRINT"Nochma1?";CHR$ [2016] 
(22)+CHR$(0) 

18 a$= UPPER$(INKEY$) : IF a$0"J" AND a$<>' [ 1637] 

N" THEN 18 

19 IF a$="J" THEN GOTO 2 [1408] 

20 CLS:MpOE 1:END [933] 


Listing Lissajous-Generator 


10 DIM f(60):MODE 1:PRINT SPC(12)"C PC S 
ELECTOR":FOR k = 0 TO 6:FOR t = 0 TO 10:IF k#l 
0 + t < 2 OR k*10+t >59 OR t=10 THEN 30 

[6361 ] 

20 LOCATE t*4+l,k*2+4:PRINT k* 10 +1: f(k* 10 + 
t) = l 

[2516] 

30 PLOT t* 63.9,168,2:DRAWR 0,192:PLOT 0,k* 
32+168:DRAWR 640,0:NEXT:NEXT 

[3421] 

40 LOCATE 1,22:PRINT SPC(39):IF w=1 THEN P 
RINT CHR$(24) 

[3796] 

50 LOCATE 13,17:PRINT'Sp :"s:IF w>0 THEN P 
RINT CHR$(24) 

[3065] 

60 LOCATE 13,19:PRINT'Com:"c:IF w=2 THEN P 
RINT CHR$(24) 

[2984] 

70 IF w > 0 THEN CALL &BB18:RUN 

[ 1179 ] 

80 g=0:LOCATE 12,22:INPUT"Deine Zahl : ,z: 

IF f(z)=0 OR z > 5 9 THEN 40 

[4489] 

90 FOR t=l TO z-1 

[825] 

100 IF z/t=z\t AND f(t)=l THEN c=c+t:g=l:G 
OSUB 180:f(t)=0 

[2885] 

110 NEXT: I F g=l THEN s = s + z:f(z)=0:GOSUB 18 
0:GOTO 40 

[3092 ] 

120 FOR tX=1 TO 59:FOR kX=l TO tX-l:IF f(k 
X)=0 OR f(t*)=0 THEN 140 

[4265] 

130 IF tX/kX=tX\k* THEN 40 

[1260] 

140 NEXT:NEXT:FOR t=l TO 59:IF f(t)=l THEN 
c=c+t:GOSUB 180 

[2899 ] 

150 NEXT 

[ 350] 

160 IF c < s THEN w=l ELSE w=2 

[ 1969 ] 

170 GOTO 40 

[ 378 ] 

180 LOCATE(t-INT(t/10)*10)*4 + 2,INT(t/10)*2 
+4:PRINT" ":RETURN 

Listing CPC-Selektor 

[3611] 


10 MODE 0:BORDER 3:INK 0,3:x=6:s=1:1(1)=24 
2: r(l) = 243:b(l) = 224:1 (2) = 12 2:r(2) = 92:b(2) = 
32:WINDOW#1,6,15,7,16:PAPER#1,6:CLS#1:FOR 
1=158 TO 490 STEP 32:PLOT 1.144,1:DRAW i,3 
02:NEXT 

20 FOR 1=144 TO 307 STEP 16:PL0T 158,1:ORA 
W 478,1:NEXT:PEN 11:L0CAT£ 3,2:PR!NT"* VIE 
R GEWINNT *": 

30 LOCATE 7,22:PEN s:PRINT"Spie1er";s:a$=I 
NKEY$:IF a$=CHR$(1(s)) AND x>6 THEN x=x-l 
ELSE IF a$=CHR$(r(s)) AND x<15 THEN x=x+l 
ELSE IF a$=CHR$(b(s)) THEN 50 
40 LOCATE x-1,5:PRINT” "CHR$(241)” "GOTO 
30 

50 SOUND 1,40*s,1,5:a = x-5:y = f(a ) :IF y<10 T 
HEN LOCATE x, 16-y:PRINT;CHR$(22) ;CHR$(1) ;" 
*";CHR$(22);" ":f(a) = f(a) + 1:p(a.y+ 1 )=s: r = s 
:s = s+1 : IF s = 3 THEN s=l 

60 t=0:y=f(a):q=y:FOR 1=1 TO 10:IF p(l,y)= 
r THEN t=t+1:IF t=4 THEN 90 ELSE ELSE t=0 
70 NEXT:t=0:FOR i=l TO 10:IF p(a,i)=r THEN 
t=t+l:IF t=4 THEN 90 ELSE ELSE t=0 
80 NEXT:GOTO 30 

90 LOCATE 2,22:PEN 15:PRINT;CHR$(7);"Sp1e1 
er";r; "gewl nnt! " :PEN 1 

Listing Vier gewinnt 


110 MODE 1 [506] 

120 KEY 1,"speed key 15,1"+CHR${13) [1880] 

130 PRINT SPC(11)CHR$(24)" M A D W O R D " [3126] 
CHR$(24):PRINT 

180 PRINT:PRINT:INPUT" Level(l-5) 1 ist de [4031] 
r schwerste!: ",lev 

190 PRINT:INPUT'Wievieie Woerter (l-25)";w [1604] 

O 

200 SPEED KEY lev.l [2011] 

210 FOR a=l TO wo • [715] 

220 s=0 [285] 

230 READ a$ [309] 

240 PRINT"Tippen sie das Wort: "CHR$(24)a [2106] 

$CHR$(24) 

250 EVERY 50,1 GOSUB 340 [920] 

260 INPUT t$ [369] 

270 IF t$ = a$ THEN PRINT"richtig sie haben [ 7300] 

"s" sec. benoetigt" ELSE 350 
280 b=b+s [799] 

290 NEXT a [383] 

300 PRINT"s1e haben Insgesamt "b" sec. ben [3184] 

oetiflt" 

320 SPEED KEY 15,1 [1264] 

330 END [110] 

340 S=S+ 1:RETURN [657] 

350 x=LEN(a$)*10:PRINT"fa1 sch,Zeitstafe vo [4314] 

n "x” sec.":s=s+x:GOTO 260 

370 DATA alf,exo1on,ikar1,head over heels, [16594] 
renegade,platoon,roadrunner,xevious,beache 
ad,matchday,a1rwolf,wonderboy,gauntlet,tra 
ilblazer.arkanold.donkeykong.trantor.danda 
re.vermeer,3d-f1 gut,chamonix chal1 enge,com 
puter,diskette.monitor,Joystick 

Listing Madword 



[ 190] 
[3715] 

[ 4084] 

[1770] 

[ 5395 ] 

[2874] 

[2580] 

[ 13644 ] 


[ 15882 ] 


( 13880] 


[12063] 

[6402] 

[8458] 

[3039] 

[6960] 

[4630] 

[5664 ] 

[1017] 

[ 3764 ] 
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Tips & Tricks—i 


Auf einen Schlag 

Disk-Katalog ins BASIC-Programm 

Für den BASIC-Programmierer stellt sich bei Datenver¬ 
arbeitungsprogrammen immer wieder dasselbe Pro¬ 
blem: Für den Ablauf eines solchen Programms werden 
des öfteren ein oder mehrere Programmnamen einer 
eingelegten Diskette benötigt. Sei es zum STARTEN, 
MERGEN eines Programms oder zum Öffnen einer re¬ 
lativen beziehungsweise sequentiellen Datei. Nur, wie 
soll man das aus dem BASIC so ohne weiteres schaffen. 

Natürlich läßt sich durch CAT oder I DIR ein Diskettenkata¬ 
log auf dem Bildschirm ausgeben. Auch können unter Zuhil¬ 
fenahme des COPYCHR$-Befehls Namen in Stringvariablen 
übergeben werden (beim CPC 464 aber auch nur mit dem 
Emulator). Solche Routinen sind in BASIC allerdings sehr 
aufwendig und platzraubend zu realisieren. Abgesehen da¬ 
von wird durch ein CAT und ähnliches immer der Bildschir¬ 
maufbau zerstört. Um diese ganze Gedankenarbeit und vor 
allem Speicherplatz zu sparen, wurde diese Maschinencode- 
Routine geschrieben. Hiermit ist es möglich, durch Nutzung 
des RSX-Befehls I READ sämtliche auf der Diskette (funk¬ 
tioniert übrigens auch bei Datasette) befindlichen Files na¬ 
mentlich und mit kByte-Angabe in ein vorher dimensionier¬ 
tes Stringvariablen-Array zu kopieren. Nach Aufruf von 
I READ wird der Bildschirmaufbau nicht beeinflußt. Die Na¬ 
menseinlesung erfolgt vollkommen unsichtbar. 

Syntax des Befehls 

I READ,(Klammeraffe)name$(Arraywert) 

Mit Klammeraffe ist das etwas seltsam aussehende “a“ auf 
der CPC-Tastatur gemeint. Das Array sollte nach Möglich¬ 
keit nur einfach dimensioniert sein und auf jeden Fall ausrei¬ 
chend Platz für die auf den Disketten befindlichen 
Files haben, zuzüglich eines Strings, welcher nach Aufruf 
der Routine mit “*** ENDE ***“ + CHR$(0) aufgefüllt 
wird. Bei voller Ausnutzung des Directories einer 3“- 
Diskette unter AMSDOS sind das genau 65 + 1 Datei. Jeder 
String muß vor dem ersten Aufruf der Routine eine Mindest¬ 
länge von 13 Zeichen zugewiesen bekommen (z.B.: 



name$(0) = SPACE$(13) usw.). Dann können Sie die Routi¬ 
ne mit I READ,@name$(0) aufrufen. Nach kurzer Zeit sind 
die Strings mit Directory-Einträgen belegt worden. Sind we¬ 
niger als 65 Dateien auf dem Datenträger vorhanden (das ist 
wohl meistens der Fall), können Sie das Ende eines eingele¬ 
senen Kataloges an dem oben bereits beschriebenen ENDE- 
String erkennen. Die ersten zwölf Zeichen eines Strings ge¬ 
ben den Namen eines Files an. Das 13te Zeichen enthält in 
ASCII-Form die verbrauchten kBytes des Programms auf 
der Diskette. Mit a = ASC(RIGHT$(name$(x),l)) können 
diese Werte ohne große Probleme übernommen werden. An 
diese Datei können Sie weitere Diskettendirectories anhän- 
gen. Sie müssen dann nur darauf achten, daß die Anzahl die 
vorher gewählte Dimensionierung des Arrays nicht über¬ 
steigt. Es kommt dann zu äußerst unangenehmen Nebenwir¬ 
kungen. 


Abtipphinweise 


Den DATA-Lader vor dem Start bitte erst einmal abspei¬ 
chern und dann starten. Es wird selbsttätig das Binärfile 
“EINLESE.BIN“ abgespeichert. In Ihrem BASIC-Pro¬ 
gramm läßt sich die Routine auf folgende Weise einbinden. 

10 MEMORY &979B: IF PEEK(&979C)=0 THEN L0AD"EINLESE.BIN“ 

:CALL &979C 


(Holger Schäkel/cd) 



für 464-664-6128 

r~. 


10 

' **** 

k****: 

«****» 

* * * 

* * * 

* * * 

**«««** 

* * * * * * * 

[ 1543 

] 

20 

•* EI 

M LE SE 

. DAT - 

DATA- 

Lad 

er von 

•CPC’ * 

[ 1409 

] 

30 

' **** 

**♦**: 

k * * * * * 

*** 

* * * 

*** 

******* 

******* 

[ 1543 

] 

40 









[117] 


50 i 

□ ATA 

979C, i 

01 .A6. 

9 7 , 

21 , 

AF , 

97,CD,Dl ,3 F 9 F 

[ 2081 

] 

60 

DATA 

9 7 A 4,1 

BC,C9, 

AA . 

9 7 , 

18 . 

09,52,4 

5,7075 

[1519 

] 

70 

DATA 

9 7AC., • 

41, C4, 

00, 

00 . 

54, 

33.OB, F 

E,1304 

[ 1830 

] 

80 

DATA 

9 784 . i 

01,00, 

EB, 

23 , 

5 E , 

23,56,22,2D22 

[1773 

] 

90 

DATA 

97BC, i 

07.98, 

D5 , 

11 , 

16 . 

98 . D5,3 

E,3D 74 

[821] 


100 

DATA 

9 7C4 

. 15,CD 

, 5 A 

, BB 

.CO 

.9B.BC, 

3E,3C72 

[ 1393 

] 

110 

DATA 

9 7CC 

.06.CD 

, 5 A 

. BB 

, Dl 

,El,13. 

06,359C 

[1074 

] 

120 

DATA 

97D4 

. 08, 1A 

, 77 

, 23 

, 13 

,10,FA, 

36,0F4A 

[ 1685 

] 

130 

DATA 

9 7 DC 

, 2E , 23 

, 06 

. 04 

, 1A 

,77,23, 

13,1E19 

[ 1 729 

] 

140 

DATA 

9 7 E 4 

. 10. FA 

, 2 A 

.07 

, 98 

,23,23, 

D5,376F 

[2141 

] 

150 

DATA 

9 7EC 

, 5E,23 

, 56 

,22 

,07 

,98,EB, 

Dl,2C7F 

[ 1 749 

] 

160 

DATA 

9 7 F 4 

, 1 3* 1 3 

, 1A 

, FE 

, 00 

,20,08, 

11,00C1 

[1263 

] 

170 

DATA 

97FC 

,09.98 

, 06 

, 00 

, 1A 

,77,23, 

13,2 3C9 

[1885 

] 

160 

DATA 

9804 

, 10 . FA 

,C9 

, 00 

, 00 

,2A,2A, 

2 A , 2 F 7 6 

[1213 

] 

190 

DATA 

9 80C 

.20.45 

, 4 E 

, 44 

, 45 

, 20,2A , 

2A , CE 16 

[1455 

] 

200 

DATA 

9814 

. 2A . 00 

, 00 

, 31 

, 33 

,30,20, 

44,174C 

[1260 

] 

210 

DATA 

♦ ENDE* 






[ 502 ] 


220 

ad r = 

&9 79C 

: zei1e 

= 50 

:MEMORY adr-l 


[ 2643 

] 

230 

READ 

d$ : I 

f d$ = 

*EN 

DE* 

"TH 

EN 340 


[1124 

] 


Listing Schlag 


240 pr=0 [ 117 ] 

250 FOR i=l TO 8 [462] 

260 READ a$:a = V A L (" & " + a $ ) [883] 

270 POKE adr,a:adr=adr+l [717] 

280 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] - 

290 pr=UNT(pr)X0R a:IF pr<0 THEN pr=pr+655 [1890] 

36 

300 NEXT 1 [375] 

310 READ pr$:pr2=VAL{"S"+pr$):IF pr2<0 THE [2610] 

N pr2=pr2+65536 

320 IF pr<>pr2 THEN PR I NT"Pruefsummenfeh1e [3615] 
r in Zei1e";zei1e:STOP 

330 zeile = zeile+10:GOT0 230 [2018] 

340 SAVE"EINLESE.BIN",8,&979C,&7B [2250] 

350 PRINT d$:END [346] 


10 ' Demoprogramm fuer I READ,@name$(Arrays [ 3189 ] 
tartwert) 

20 ' [117] 

30 MOOE 2: IF PEEK(&9 79C)=0 THEN MEMORY &97 [7716] 
9B:LOAD"einlese.bin":CALL &979C 

40 DIM name$(65):FOR x = 0 TO 65:name$(x)=SP [3047] 
ACE$(13) : NEXT 

50 PRINT'Bitte legen Sie eine Diskette mit [12985] 
moeglichst vielen Dateien ein.":PRINT:PRI 
NT"Dann bitte eine Taste druecken.".CALL & 

BB06:|READ,@name$(0) 

Listing Schlag 
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60 PRINT:PRINT"Nach erneutem Tastendruck g [7661} 
eBe ich Ihnen einen Diskettenkata 1og aus." 

70 CALL &BB06:CLS:x=0:a=0:WHILE name$(x)<> [10382] 
"*** ENDE ***"+CHR$(0):a=ASC(RIGHT$(name$( 
x) ,1)):PRINT"F1lename ";x+l;" = ";LEFT$(na 
me$(x),12)," Laenge ln Kilobyte :";a:b=b+a 
80 IF VP0S(#0)=24 THEN PRINT:PRINT CHR$(24 [5238] 

); "TASTE";CHR$(24);CHR$(7); :CALL &BB06:CLS 
90 x=x+1:WEND . [1530] 

100 PRINT:PRINT"Auf der Diskette sind';b[" [8507] 
Kilobytes durch Programme verbraucht. Noc 
hmal [J/N]" 

110 a$ = " " : WHI LE a$0“J" AND a$ < > " N " : aS = UPP [4590] 
ER$(INKEVS):WEND:IF a$="J" THEN ERASE name 
$:RUN:ELSE END 


10 
me$ (0 
20 ' 
s der 
30 ' 
by tes 
40 ' 

50 ’ 
60 ’ 
70 ' 
80 • 
90 ' 
100 ' 
110 ' 
120 ' 
130 ' 
Wert 
140 ’ 
sse 
150 ' 

an E 
160 ' 
170 ' 
an [ 
180 
190 
200 
f e r I 
210 
220 
230 
240 
250 
260 
n 

270 

280 


org 8.979c 
) 

ld bc,rsxtab 
Namensad resse 
1d hl,sysbyt 

call &bcd 1 
r et 

rsxtab dw namtab 
jr Start 
namtab dm "REA" 
db 196,0 
sysbyt ds 4 
Start cp 1 
ret nz 
ex de,h1 
1 aden 
i nc hl 


Aufruf mit !read,@na 

Adresse des Speicher 

Adresse cer 4 System 

; RSX-Befehl einbinden 
; Basicruecksprung 


ld e , (hl ) 

ine hl 
ld d,(hl ) 

1 d (spei ),h1 
push de 
1d de,ende 
iel egen 
push de 

ld a . 21 

cal1 &bb5a 
call &bc9b 
1 d a , 6 
call &bb5a 

pop de 
pop hl 


;1 Wert uebergeben 
;nein, dann zurueck 
;HL mit uebergebenen 

;HL auf 1 . Stringaare 

;Lowbyte der Adresse 

;Highbyte der Adresse 

;Adresse sichern 
;Werte sichern 
;DE mit 2048 Bytesbuf 

[Adresse merken 

;Bildschirm sperren 
[CATALOG auf rufen 

[Bildschirm anschalte 

[Adresse Buffer holen 
[Adresse String holen 


[2172] 

[4209 ] 

[ 3955 ] 

[2279] 
[2141] 
[1576] 

[ 768] 
[630] 
[498] 
[940] 
[1814] 

[ 1094] 

[3469 ] 

[2470] 

[3068] 

[195] 

[ 1261 ] 

[924] 

[ 1070] 
[2756] 

[ 870] 

[ 776 ] 

[ 2336 ] 
[ 2005 ] 
[ 726 ] 

[ 2366] 

[ 2358 ] 
[3060] 


Listing Schlag 


290 ‘ inc de 
300 * beg ld b,B 
ach B 

310 ' anf ld a,(de) 
nehmen 

320 1 1d (hl),a 

rnehmen 

330 1 inc hl 

n 

340 1 inc de 
350 djnz anf 
360 ' ld (hl),"." 
370 1 inc hl 
380 ’ 1d b,4 


;und erhoehen [1290] 

[Laenge eines Namens n [1942] 

[erstes Zeichen ueber [2749] 

;und in name$(x) uebe [1566] 

[beide Zeiger erhoehe [2657] 

[ 194] 

[Schleifenende [1930] 

[Namenspunkt eingeben [1977] 
[ 195] 

[Laenge der Extension [3635] 


+ KB in 

ASCII Form an 

B 


390 ’ 

anf1 1d a,(de) 


[302 ] 

400 1 

ld (hl),a 


[406] 

410 * 

inc hl 


[195] 

420 ‘ 

inc de 


[ 194] 

430 1 

djnz anfl 


[ 1591 ] 

440 1 

1d hl,(spei) 

jnaechste Adresse erm 

[3296] 

itte1n 



450 1 

inc hl 

[Stringzeiger auf nae 

[ 2491 ] 

chsten 

i String 



460 ' 

inc hl 


l 195] 

470 ‘ 

push de 

;DE sichern 

[ 892 ] 

480 1 

ld e,(hl) 

;Lowbyte 

[2023] 

490 ‘ 

inc hl 


[195] 

500 1 

ld d,(hl) 

;Highbyte 

[1169 ] 

510 ’ 

1d (spei),hl 

[wieder sichern 

[1730] 

520 ‘ 

ex de,hl 

;neue Adresse an HL 

[1680] 

530 1 

pop de 

;DE zu rueckholen 

[1501 ] 

540 ’ 

inc de 

[Bufferzeiger auf nae 

[3187] 

chstes File 



550 ' 

inc de 


[ 194] 

560 * 

1d a,(de) 

[Vergleich File vorha 

[ 3255 ] 

nden ‘ 

? 



570 1 

cp 0 


[ 558] 

580 ’ 

j r nz,beg 

;ja, dann zurueck 

[ 1926] 

590 1 

1d de , spei 1 


[ 1237 ] 

600 ' 

ld b,13 

[Folgestring leeren 

[ 1954] 

610 1 

wei ld a,(de) 


[ 780] 

620 * 

ld (hl),a 


[406] 

630 ■ 

inc hl 


[ 195] 

640 ‘ 

inc de 


[ 194] 

650 * 

djnz wei 


[ 1521 ] 

660 1 

ret 

;Basicruecksprung 

[2141 ] 

670 1 

spei dw 0 


[ 552] 

680 

speil dm "*** 

ENDE ***" 

[1697] 

690 ’ 

db 0 


[ 422 ] 

700 1 

ende db 0 

;Bufferbeg1nn. Zur Ei 

[5003] 


genassemblierung hier lieber ein DS 2048 s 
etzen. 

Listing Schlag 


Unterm Strich 

Bruchrechnen mit dem CPC 

Ein Bruchrechnungsprogramm hat sich bestimmt schon 
so mancher computerbesitzende Schüler gewünscht, 
denn eins ist wohl klar: Unter allen Gemeinheiten, die 
sich die Schulmathematiker ausgedacht haben, belegt 
die Bruchrechnung eine (wenn nicht sogar die) Spitzen¬ 
position. Und was für die EDVler besonders unange¬ 
nehm ist: Der Rechner kann mit Brüchen nichts anfan¬ 
gen - bis jetzt! 

Wie bekommt man nun einen Bruch auf dem CPC darge¬ 
stellt? Jeder Bruch besteht aus zwei (echter Bruch) oder drei 
Zahlen (gemischte Zahl). Für den Computer macht man dar¬ 
aus drei Eingaben (A,B,C). 

Im nebenstehendem Beispiel wäre dann 
A = 1, B=2 und C=3, die für gemischte 
Zahlen stehen, oder A=0, B=2 und C = 3 
für einen echten Bruch. 


Um “ZWEI-DREIVIERTEL“ und “DREI-FÜNFSECH¬ 
STEL“ zu addieren, müßte man demnach sechs Zahlen und 
ein Additionszeichen eingeben. Problematisch erscheint jetzt 
der Fall, wenn eine der beiden Zahlen keine gemischte Zahl 
ist. 

Soll zum Beispiel die Aufgabe “2/3 * 5“ berechnet werden, 
benötigt man für den Bruch die Zahl vor dem Bruchstrich 
(Eingabe A) und für die ganze Zahl den Bruch-Teil (Einga¬ 
ben B und C) nicht. Die Lösung ist auch für dieses Problem 
ganz einfach: Für den Teil, den man nicht braucht, gibt man 
eine Null ein (einfach ENTER drücken). Das Programm un¬ 
terdrückt danach die Darstellung der nicht benötigten (auf 
Null gesetzten) Teile. Ich gebe zu, daß das zunächst etwas 
mühselig erscheint. Wer aber mal ein größeres Paket Brüche 
“zu Fuß“ erledigt hat, wird sich schnell mit dem Verfahren 
anfreunden, vor allem, wenn er erfährt, daß das Programm 
auch negative Brüche nimmt. 

Dazu folgendes: Für die Addition und Subtraktion wird der 
Hauptnenner ausgegeben, der angegebene Hauptnenner ist 
wirklich das vom Lehrer geforderte KGV (kleinstes gemein¬ 
sames Vielfaches). Das Ergebnis ist selbstverständlich so 
weit wie möglich gekürzt, auch da findet kein Lehrer mehr 
was zu bemängeln. 
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Ein Hinweis zum Abtippen sei noch gestattet: Ich gehöre zu 
den Leuten, die REMs und anspringen. 

Daher ist es unbedingt ratsam, die REM-Zeilen zumindest 
bis hinter das REM abzuschreiben. 


für 464-664-6128 

I 



1000 REM bruchrechenprogramm [2951] 

1010 REM - U.Torweihe [1679] 

01/89 

1020 ' [117] 

1030 MODE 1 [506] 

1040 BOROER 24 [953] 

1050 REM me 1 der [821 ] 

1060 MAXI = 32 7 6 7 [ 757] 

1070 ' [117] 

1080 PRINT CHR$(24):REM Inverse ein [1901] 

1090 FOR y=l TO 2 [1188] 

1100 FOR x=l TO 40 [797] 

1110 LOCATE x,y:PRINT" [732] 

1120 NEXT x,y [548] 

1130 LOCATE 2,1:PRINT"Bruchrechenprogr amm" [4500] 
1140 PRINT CHR$(24):REM inverse aus [2128] 

1150 ■ [117] 

1160 REM Bildschirmaufbau [2442] 

1170 FOR Y=25 TO 3 STEP -1 [1315] 

1180 LOCATE 1,Y:PR I NT “ [2278] 


1190 

NEXT Y 





1200 

o 

ii 

0- 

o 

II 

o 

o 

II 

z 





1210 

LOCATE 1, 5 

PRINT” 

B 



1220 

LOCATE 1, 6 

PRINT" 

A - 

- 4 


D 






1230 

LOCATE 1, 7 

PRINT" 

C 



1240 






1250 

REM Organisation 




1260 






1270 

GOSUB 1630 





1280 

GOSUB 2320 





1290 

IF op$="+" OR 

op$=" 

THEN 1300 

ELSE 

1330 






1300 

GOSUB 2380 




1310 

IF op$="+" 

THEN 

GOSUB 2550 ELSE 

GO 

SUB 2600 





1320 

GOTO 1340 





1330 

IF op$="*" 

THEN 

GOSUB 2650 ELSE 

GO 

SUB 2710 





1340 

GOSUa 2770 





1350 

GOSUB 2850 





1360 

* 





1370 

REM Ergebnis 

ausgeben 



1380 

* 





1390 

LOCATE 1,14: 

PRINT" 

Ergebnis ..: 

; M 


1400 

IF OOO THEN 

LOCATE 

24,14;PRINT 

USING 


"4444" ; O 

1410 IF NOO THEN LOCATE 18,15:PRINT USING 

"4444" ; N 

1420 IF OOO THEN LOCATE 23,15:PRINT"- 


[359] 

[ 599 ] 

[ 1879 ] 

[ 1860] 

[ 2436 ] 

[117] 

[1913] 

[117] 

[861] 

[859] 

[ 1334 ] 

[911] 

[ 2093 ] 

[462] 
[2340] 

[897] 

[905] 

[117] 

[2124] 

[117] 

[ 1869 ] 
[2141] 

[3075] 

[ 19 72 ] 


1430 IF OOO THEN LOCATE 24,16:PRINT USING [4145] 

"4444" ; p 

1440 ' [117] 

1450 REM neustart [747] 

1460 ' [117] 

1470 LOCATE 1,25:PRINT" Weitere Aufgabe ( [2655] 

J/N) ?" 

1480 jn$=INKEY$:IF jn$="" THEN 1480 [1547] 

1490 IF j n$="J" OR jn$=”j" THEN GOTO 1160 [ 2494] 
1500 IF JN$ =”N" OR j n$="n" THEN 1510 ELSE [1736] 
1480 

1510 1 [117] 

1520 REM ende [410] 

1530 ‘ [117] 

1540 FOR x=23 TO 1 STEP -1 [1071] 

1550 BORDER x [872] 

1560 FOR t=l TO 10:NEXT [1596] 

1570 INK l.X [297] 
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So, jetzt bleibt mir nur noch, allen Benutzern viel Spaß in der 
gewonnenen, bruchrechenfreien Zeit zu wünschen. 


(Uwe Torweihe/jb) 


1580 NEXT x 
1590 INK 1,24 
1600 MODE 2 
1610 PRINT"Ciao" 

1620 END 
1630 ' 

1640 REM Aufgabe einiesen 

1650 REM - 

1660 LOCATE 1, 6:PRINT" - 

1670 LOCATE 1, 6:INPUT a 
1680 IF ABS( a )>maxi THEN 1660 
1690 IF a=0 THEN LOCATE 1, 6:PRINT' 
":GOTO 1710 


[ 356 ] 

[58] 

[513] 

[1412] 

[ 110 ] 

[117] 

[ 1189] 
[1154] 
[1573] 
[1006] 
[259 ] 
[2402 ] 


1700 

1710 

LOCATE 

1 , 

6:PRINT USING" 

4 4 4 4 " 

; A [2574] 

[117] 

1 720 

LOCATE 

7 , 

5:PRINT 

" 

[1230] 

1 730 

LOCATE 

7 , 

5:INPUT b 


[ 1084 ] 

1 740 

IF a < > 0 

AND 

1 (b<0 OR b 

>maxi) 

THEN [3237] 


1720 

1750 IF a = 0 
1 720 

1760 IF bOO THEN LOCATE 
•' 4444 " ; B 

1770 IF b=0 THEN 1780 ELSE 1830 
1 780 FOR y = 5 TO 7 

1790 LOCATE 7,y:PRINT" " ; 

1800 NEXT y 

1810 c=l 

1820 GOTO 1890 

1830 IF a < 0 THEN b = -b 

1840 ’ 

1850 LOCATE 7, 7:PRINT" 

1860 LOCATE 7, 7:INPUT c 

1870 IF ABS(c)>maxi OR c=0 THEN 1850 
1880 LOCATE 7, 7:PRINT USING" 4444 
1890 ‘ 

1900 LOCATE 15 
1910 LOCATE 15 
1920 LOCATE 15 
1930 LOCATE 15 
1940 LOCATE 15 


AND (b=0 OR ABS(b)>maxi) THEN [1058] 
7, 5:PRINT USING [2693] 


[1175] 

[590] 

[905] 

[359] 

[351 ] 

[361] 

[682] 

[117] 

[1738] 

[919] 

[1523] 
;c [1758] 
[117] 

[1033] 
[893] 

[1125 ] 
[ 1299 ] 
[ 767 ] 

[1533] 
[ 1695 ] 

OR [3953] 


PRI NT" + " 

PRINT"-" 

PRINT" " 

PRINT"*" 

PRINT";” 

1950 j n$=INKEY$:IF jn$="" THEN 1950 
1960 IF j n$=" + " OR jn$="; " 

THEN op$=" + ":GOT0 2010 
1970 IF J n$=" OR j n$=" = " OR jn$=" 
j n$= "0" THEN op$="-"•GOTO 2010 
1980 IF j n$ =" * " OR jn$="x“ OR jn$=" 
THEN op$ =":GOTO 2010 
1990 IF jn$= :" OR jn$="/" OR jn$=" 
j n$ = "\" THEN op$=":":GOTO 2010 
2000 GOTO 1950 

, 3:PRINT" " 

, 5:PRINT" " 

, 6:PRINT op$ 

, 7:PRINT" " 

, 9.PRINT" " 


X 

?" OR 


2010 LOCATE 15 
2020 LOCATE 15 
2030 LOCATE 15 
2040 LOCATE 15 
2050 LOCATE 15 
2060 ' 

2070 LOCATE 17 
2080 LOCATE 17 


6:PR I NT " - 

6:INPUT D 
2090 IF ABS C d)>maxi THEN 2070 
2100 IF d=0 THEN LOCATE 17, 6:PRINT" 
":GOTO 2120 

2110 LOCATE 17, 6:PRINT USING" #«44 
2120 ' 

2130 LOCATE 23 
2140 LOCATE 23 


■ d 


5:PRINT" 

5:INPUT e 

2150 IF d<>0 AND (e<0 OR e >maxO THEN 

2130 

2160 IF d=0 AND (e=0 OR ABS(e)>maxi) THEN 
2130 

2170 IF e < > 0 THEN LOCATE 23, 5:PRINT USING 
" #44# " ;e 

2180 IP E = 0 THEN 2190 ELSE 2240 

2190 FQR y=5 TO 7 

2200 LOCATE 23,y:PRINT" 

2210 NEXT y 
2220 F = 1 


[2990] 

[ 2495 ] 

[341] 

[1031] 
[919] 

[1501 ] 
[1263] 
[ 747 ] 
[117] 

[ 1628 ] 
[1596] 
[912] 

[2012 ] 

[1775] 

[117] 

[929] 

[ 1255 ] 
[ 1926] 

[ 1260] 

[2108] 

[1165] 
[ 590] 

[ 1869 ] 
[ 359 ] 

[ 395 ] 
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[-“Tips & Tricks 


2230 

GOTO 2310 

[349] 

2240 

IF D < 0 THEN E = -E 

[ 570] 

2250 


[117] 

2260 

IF d < 0 THEN e = -e 

[ 570] 

22 70 

LOCATE 23, 7:PRINT" 

[ 1647 ] 

2280 

LOCATE 23, 7:INPUT f 

[ 759 ] 

2290 

IF ABS(f)>maxi OR f=0 THEN 2270 

[959] 

2300 

LOCATE 23, 7:PRINT USING" #### ;f 

[ 1982 ] 

2310 

RETURN 

[ 555 ] 

2320 

* 

[117] 

2330 

REM gemischte Zahl in echten Bruch ve 

[3953] 

rwandeln 

2340 ' 

[117] 

2350 

G=a*C+b 

[815] 

2360 

H=d* f+ e 

[ 820] 

2370 

RETURN 

[ 555 ] 

2380 

* 

[117] 

2390 

REM hauptnenner berechnen 

[2148] 

2400 


[117] 

2410 

C2 = C:F2 = F 

[ 642 ] 

2420 

K= 1 : x = 2 

[820] 

2430 

IF c/x=INT(c/x) AND f/x=INT(f/x) THEN 

[2934] 

c = c/x:f=f/x:k=k*x:GOTO 2430 

2440 IF c>X AND F>X THEN 2460 

[2310] 

2450 

IF c<X OR f < x THEN k=k*c*f:GOTO 2 

[2201] 

470 

2460 

x=x+1:GOTO 2430 

[ 1696] 

2470 

LOCATE 2,11:PRINT“Hauptnenner : ";k 

[3001 ] 

2480 

C = C2:F = F 2 

[1063] 

2490 

‘ 

[117] 

2500 

REM erweitern 

[ 479 ] 

2510 


[117] 

2520 

1=k/c*g 

[ 383 ] 

2530 

j=k/f*h 

[592 ] 

2540 

RETURN 

[ 555 ] 

2550 


[117] 

2560 

REM addition 

[ 889 ] 

2570 

• . * 

[117] 

2580 

L=1+J 

[ 106] 
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Ohne Wartezeiten 

Spooler 

Spooler sind eine nützliche Einrichtung für alle, die viel 
drucken und dabei nicht immer auf den langsamen 
Drucker warten wollen. Neben der Möglichkeit einer 
Hardware-Lösung (externer Pufferspeicher zwischen 
Computer und Drucker) gibt es auch noch die Soft¬ 
ware-Lösung, das heißt die Emulierung eines Spoolers 
im vorhandenen RAM-Speicher: der Spooler zum ’Null- 
tarif. 

Manche werden jetzt sagen, das sei nichts Neues, und sie ha¬ 
ben tatsächlich schon mehrere Spooler-Versionen in ihrer 
Programmsammlung. Aber viele Lösungen, die bisher er¬ 
schienen sind, waren allzu starr aufgebaut, und die meisten 
hatten einen entscheidenden Nachteil: Sie belegten Speicher¬ 
platz im Hauptspeicher. 

16-kByte-Drucker-Spooler für 4 Byte Hauptspeicher 

Das hier vorzustellende Programm entstand aus dem Wunsch 
heraus, die Textverarbeitung TASWORD auf einem CPC 
464 mit einem Spooler zu ergänzen. Da TASWORD neben 
dem Programm-Code ohnehin nur wenig mehr als 10 kByte 


2590 RETURN [555] 
2600 ' [117] 
2610 REM Subtraktion [889] 
2620 ' [H7] 
2630 L=1 -j [126] 
2640 RETURN [555] 
2650 • [117] 
2660 REM mu1t1plikation [892] 
2670 * [117] 
2680 1=9* h [158] 
2690 k = c* f [304] 
2700 RETURN [555] 
2710 1 [117] 
2720 REM division [477] 
2730 1 [H7] 
2740 1 =9* f [144] 
2750 k = c* h [318] 
2760 RETURN [555] 
2770 ' [117] 


2780 REM umrechnen: echter Bruch in gemisc [2419] 
hte zahl 

1 [117] , 

2800 IF ABS(1 )<ABS(k) THEN m=l:n = 0:GOTO 28 [2177] 
40 

2810 IF ABS(1)/ABS(k)=INT(ABS(l)/ABS(k)) T [3990] 


HEN n=l/k:M=0:K=1:GOTO 2840 

2820 n=INT(1/k):IF n<0 THEN n=n+l [2451] 

2830 m=ABS(1-n*k) [ 1208] 

2840 RETURN [555] 

2850 ' [117] 

2860 REM kuerzen [954] 

2870 • [117] 

2880 FOR q=2 TO SQR(ABS(m))+1 [1541] 

2890 IF m/q = I NT(m/q) AND k/q=INT(k/q) THE [3123] 
N m=m/q:k=k/q:GOTO 2890 

2900 NEXT q [ 367 ] 

2910 0 =m [116] 

2920 p=k [114] 

2930 RETURN [555] 
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für den eigentlichen Text übrig läßt, kam es gar nicht in Fra¬ 
ge, den Drucker-Puffer im Hauptspeicher zu organisieren. 
Die vorhandene SILICON DISC von dk’tronics sollte den 
Speicherplatz abzwacken. Zusätzlich wurde das Treiberpro¬ 
gramm, das im Hintergrund läuft, in den oberen Teil des 
Sound-Puffers gelegt, weil man normalerweise während der 
Textverarbeitung keine exzessiven SOUND-Kommandos 
gibt. Bleiben lediglich 4 Bytes, die für die Verwaltung des 
RSX-Befehls SPOOLER im Hauptspeicher belegt werden. 


So geht’s 


Wer über die SILICON DISC verfügt, kann das Assembler- 
Listing (in der vorliegenden Form für den DEVPAC GENA- 
Assembler) einfach abtippen und assemblieren. Anpassungs¬ 
vorschläge für andere Konfigurationen folgen weiter unten. 

Der Object-Code muß unter dem Namen ’SPOOLER.BIN’ 
gesichert werden. Dann das SPOOLER-LADEPRO¬ 
GRAMM abtippen und als ’SPOOLER.BAS’ sichern. Da¬ 
nach kann das Programm gestartet werden. Das Initialisie¬ 
rungsprogramm löscht sich selbst: Ein weiterer Start würde 
bis zum System-’Absturz’ führen. Werden die entsprechen¬ 
den Befehle in eigene Programme eingefügt, muß sicherge¬ 
stellt werden, daß sie bei einem Neustart des Programms 
nicht nochmal aufgerufen werden. 
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Reinhard Schuster 


Schneider 

conPUTER Division 

Vertragshändler 


A ATARI 

System-Fachhändler 


händler 


derCanpierDrucfeer 




Vertrags¬ 

händler 


Spiele für CPC 

S pielesammlun gen 


Game, Set & Match II 

Super Hang on, Davis' Snooker, 
Basket Master, Superball, Track 
& Field, Matchday II, Champion- 
chip Sprint 

Kassette 37.90 Diskette 54.90 


Ten Mega Games 

North Star, Cybernoid, Deflector, 
Trailblazer, Bloodbrother, MASK 
n, Tour de Force, Hercules, 
Masters of the Universe, Blood 
Valley 

Kassette 29.90 Diskette 44.90 


EPIX 

World Games, Winter Games, 
Impossible Mission, Supercycle 
Kassette 29.90 Diskette 49.90 


Par 3 

Leaderboard, Leaderboard Tour- 
nement, Worldclass Leader¬ 
board 

Kassette 39.90 Diskette 49.90 


Karate ACE 

Way of the Tiger, Samurai Trilo¬ 
gie, Bruce Lee, Kung Fu Master. 
Exploding Fist, Avenger, Uchi 
Mata 

Kassette 37.90 Diskette 44.90 


Ten Great Games III 

lOth Frame, Firelord, Ranarama, 
Fighter Pilot, Leaderboard, Iridis 
Alpha, Eagles, Rebounder, Alley 
Cat, Last Mission 
Kassette 37.90 Diskette 44.90 


Aicade Muscle 
Arkanoid2 
Art uta 
Asterix im 
MorgenlandF.6128 

Bard'sTalel 

Batman 

Bedlam 

BionicCommaiido 
Blasteroids 
Blueberryunddas 
Gespenst 
Bomb Jack 2 
Bubble Ghost 
Buggy Boy 


Six-Pack 3 

Ghost'n Goblins, Living Day- 
lights, Escape from Singes 
Castle (nicht auf Disc), Dragons 
Lair, Paperboy, Enduro Racer 
Kassette 29.90 Diskette 43.90 


Flight ACE 

Advanced Tacticai Fighter, 
Tomahawk, Strike Force Harrier, 
Speedfire 40, ACE, Airtraffic, 
Combat 

Kassette 46.90 Diskette 56.90 


Arcade Force Four 

Road Runner, Gauntlet, Indiana 
Jones, Metrocross 

Diskette 49.90 


Space ACE 

Xevius, Venon Strikes Back, 
Cybernoid, North Star, Zynaps, 
Trantor, Exolon 

Kassette 37.90 Diskette 44.90 


Top Ten Collection 

Saboteur I, Saboteur II, Sygma 
HI. Critical Mass, Airwolf. Deep 
Strike, Combat Lynx, Turbo 
Esprit, Thanatos Bombjack II 
Kassette 29.90 Diskette 46.90 


Einzelspiele 

Cass. Disk. 
3 26.90 41.90 


Supreme Challenge 

Elite, Sentinel, Starglider, ACE 
II, Tetris 

Kassette 37.90 Diskette 49.90 


Giants 

California Games, Gauntlet II. 
Out Run, Rolling Thunder. 720° 
Kassette 37.90 Diskette 39.90 


1943 

20.000 Meilen 
unter dem Meer 
SDThaiBoxmg 
4x4offRoadRacing 
Academy 
Afterburner 
Aliens us 
Alternative 
World Games 


44.90 

19.90 
29.90 45.90 


26.90 

29.90 44.90 


California Games 
Captain America 
Championship Sprint 
Charlie Chaplin 
Circus Games 
CrazyCars 
CrazyCars2 
Cybernoid 
Cybernoid 2 

D.T. Olympic 
Challenge 
Darkside 
Das Reich 
Desolaior 
Dogfight 2187 
Dragon Nmja 
Echelon 
Eddi Edwards 
Super Ski 

Empire Strikes Back 
EveningStar 
Expansion Kit f. 
Footb. Man 
Eye 

Fifth Quadrant 
Fire & Forget 
Fists'nThrottles 
Football Manager 2 
Four Smash Hits 


Cass. 

Disk. 


Cass. 

Disk. 


Cass. Disk. 

39.90 

57.90 

GalacticConqueror 

26.90 

41.90 

Overlander 

28.90 

43.90 

28.90 

43.90 

GaryLmekers 



Pacland 

29.90 

45.90 

31.90 

44.90 

Hotshots 

29.90 

45.90 

Pacmama 

29.90 




GaryLinekers 



Peter Pan 


44.90 


39.90 

Super Skills 

29.90 

45.90 

Pink Panther 

28.90 

43.90 


42.90 

Gary Lmekers 



Pirates6128 


57.90 

31.90 

44.90 

Superstar Soccer 

28.90 

43.90 

R-Type 

29.90 

44.90 


41.90 

Gauntlet 2 


41.90 

Roadblasters 

26.90 



41.90 

Gee Bee AirRalley 

28.90 

43.90 

Robocop 

31.90 

44.90 

29.90 

45.90 

Golden Path 


42.90 

Rolling Thunder 


41.90 



GuildofThieves6128 


57.90 

Run The Gauntlet 

31.90 

47.90 


39.90 

Hacker 2 

26.90 


Rückkehrder 




35.90 

Heavy onthe 



Jedi Ritter 

29.90 

44.90 


44.90 

Magick 

29.90 


Samurai Wairior 


43.90 

28.90 

41.90 

Hereos of the Lance 

26.90 

41.90 

Savage 

28.90 

43.90 



Impossible Mission 2 

26.90 

41.90 

Shadowfire 

29.90 


26.90 

37.90 

International 



Shogun 


45.90 


37.90 

Karate Plus 


39.90 

Short Circuit 

21.90 



44.90 

Jagd auf Roter 



Sidewalk 


39.90 

28.90 


Oktober 

41.90 

54.90 

Slap Fight 

21.90 


29.90 

45.90 

Karnov 

28.90 

43.90 

Space Harrier 

21.90 

35.90 


42.90 

Killed Until Dead 


37.90 

Starquake 


15.90 

26.90 

41.90 

KnightOrc 

39.90 

54.90 

SuperSprint 


37.90 

28.90 


Lancelot 


57.90 

Superman 

29.90 

45.90 

29.90 

45.90 

Last Nmja 2 

39.90 

43.90 

Sweevos World 


42.90 



LazerTag 

26.90 

41.90 

Technocop 

29.90 

45.90 

31.90 

47.90 

Leben und sterben 



Ten Computer Hrts 5 

29.90 

45.90 

28.90 

43.90 

lassen 

29.90 

44.90 

Terror ofthedeep 

26.90 

39.90 


45.90 

LedStorm 

29.90 

45.90 

Tetris 


35.90 

26.90 

41.90 

LukyLuke 



The Real Ghostbusters 

29.90 

45.90 


39.90 

Nitroglycerin 


35.90 

Throne of Fire 

24.90 


29.90 

44.90 

Mad Balls 

24.90 

39.90 

Thunderblade 

26.90 

41.90 

39.90 

43 90 

Marble Madness 



Tiger Road 


41.90 



Constr. Set 

26.90 


Titan 

26.90 

41.90 


QA 

Mewilo6128 


44.90 

Trivial Persuit 2 DT. 

44.90 

57.90 

5K an 

dl Q0 

MickyMouse 

28.90 

43.90 

Typhoon 

31.90 

44.90 

)A QO 

■* liTV 

Motor Massacre 

31.90 

47.90 

Vindicator 

26.90 

44.90 

6*1.7V 


Murder onthe 



War in Middle Earth 

29.90 

45.90 

00 Qfl 

Qfl 

Atlantic 


53.90 

WecLeMans 

31.90 

47.90 

CC.l 7U 

Cj.jxJ 

A/t OA 

Nebulus 

28.90 


Winter Edition 

26.90 

41.90 



Netherworld 

29.90 

45.90 

Wizard Warz 

28.90 

43.90 


28.90 

Night Raider 

29.90 

44.90 

WonderBoy 


42.90 

26.90 


OffSchoreWarrior 

28.90 


Working Backwaids 


19.90 


44.90 

One 

26.90 

39.90 

Zorgos 


43.90 

28.90 

43.90 

Operation Wolf 

31.90 

47.90 




28.90 

45.90 

Out Run 

26.90 

41.90 





Wir führen Software für Amiga, CPC, Atari ST und IBM-Kompatible. Einige tausend Programme sind ständig am Lager! 


HARDWARE 


KUNSTLEDER-HAUBEN 


AMSTRAD 


CPC-ZUBEHOR 


CPC 464/664 . 19.80 

CPC 6128 . 19.80 

Monitor GT 64/65 . 27.90 

Monitor CTM 640/644 . 29.95 

EuroPC Tastatur . 21.80 

EuroPC Monitor MM 12 . 34.90 

EuroPC Monitor CM 14. 37.90 

EuroPC Tastatur u. MM 12. 49.80 

EuroPC Tastatur u. CM 14 . 55.80 

DMP 2000/2160/3000/3160 . 19.80 

Star NL/ND/NR 10. 24.90 

Star LC 10 . 24.90 


CPC 464 u. Grünmonitor GT 65 398.00 

CPC 464 u. Farbmonitor CTM 644 698.00 

CPC 6128 u. Grünmonitor GT 65 798.00 

CPC 6128 u. Farbmonitor CTM 644 1098.00 


Akustikkoppler 

dataphon S21D-2 


Kabel CPC/an Fernseher m. Scart . 19.80 

Bildschirmfilter GT 64/65 . 29.00 

Bildschirmfüter CTM 640/644 . 39.95 

Druckerkabel 464/664 . 29.80 

Druckerkabel 6128 . 29.80 

Monitorverlängerung CPC 464 . 27.90 

Monitorverlängerung CPC 664/6128. 34.90 
Kabel Computer/Recorder . 19.80 


Heute bestellt, morgen schon bei Ihnen. 

Bestellte Ware wird, falls vorrätig, meist 
am selben Tag per UPS 24-Stunden- 
Schnellversand auf den Weg gebracht. 



BTX-Modul 

für 464/664 
oder 6128 n 


398 .- 


TELEFONISCHE 

BESTELLUNG 


02305/3770 


Ladengeschäftszeiten: 
Montag-Freitag 9.00 - 13.00 Uhr 
15.00 - 18.30 Uhr 
Samstag 9.00 - 14.00 Uhr 
Langer Samstag 9.00 — 18.00 Uhr 


So finden Sie unser Ladengeschäft: 

A42 (Emscherschnellweg) Abfahrt 
Castrop-Rauxel, B 235 Richtung Wit¬ 
ten, 2. Ampel rechts, 1. Ampel links, nTCl/rTTriU 

dann 2. Ampel links. Über 60 Park- LllaXkC. 1 1 

plätze stehen Ihnen am Hause 
kostenlos zur Verfügung. 


i 


No Name 3Vz", lOStck. 24 . 

Maxell 3", 10 Stck. 69.00 


Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse 
auf Psch.-Kto. Nr. 69422-460 PschA Dortmund zuzügl. 5, DM Ver¬ 
sandkosten. 24-Stunden-Schnellversand per UPS. 

Ausland nur per Vorkasse auf Psch.-Kto. zuzügl. 10,- DM Versand¬ 
kosten. Bitte bei allen Bestellungen Computertyp angeben! 


Bitte fordern Sie unsere Software-Liste 
gegen frankierten Rückumschlag an. 


(mumm und Prcisänderungen voib^h/ilten 


O Erbitte Ihren Gesamt-Katalog 
(2,- DM in Briefmarken liegen bei) 
Hiermit bestelle ich 

O per Nachnahme O per Vorkasse 
O Incl. kostenlosem Katalog 


BESTELLSCHEIN 


Anz I Artikel 


Vorname. Name 


Straße. Hausnummer 




Computertyp 


Datum. Unterschrift 







































I—Tips & Tricks 


Das Treiberprogramm belegt jetzt die obere Hälfte des 
Sound-Puffers (Also mit Sound-Kommandos sparsam umge¬ 
hen, es darf aber getrost mal 'gepiepst’ werden). Der eigent¬ 
liche Drucker-Puffer belegt jetzt die oberste 16-kBy te-Bank 
der SILICON DISC. Das bedeutet, Sie müssen darauf ach¬ 
ten, daß immer mindestens 16 kByte freibleiben, da es sonst 
zu Überschneidungen und somit zu Daten Verlust kommt. 
Aufgrund der 254-kByte-Kapazität der SILICON DISC hat 
sich dies in der Praxis als unproblematisch erwiesen, so daß 
hier auf einen Schutzmechanismus verzichtet wurde. Wäh¬ 
rend der Spooler aktiv ist, sollte nicht mit der SILICON 
DISC gearbeitet werden, weil diese die Interrupts offensicht¬ 
lich nicht sperrt. Die physikalische Floppy kann aber beden¬ 
kenlos in Gang gesetzt werden. 

Der Spooler kann mit der Tastenkombination CTRL + ESC 
ausgeschaltet werden. Eine entsprechende Meldung er¬ 
scheint auf dem Schirm. Die Wirkung tritt sofort ein. Sofern 
der Drucker nicht selbst über einen Zwischenspeicher von 
mehr als einer Zeile verfügt, hört er sofort nach Beendigung 
der Zeile auf zu drucken. Der Spooler ist jetzt ’leer’. 

Dies ist nicht nur die Notbremse. Auch bei zeitkritischen An¬ 
wendungen kann es sinnvoll sein, wenn nichts gedruckt wer¬ 
den soll, den Spooler abzuschalten, weil das Treiberpro¬ 
gramm im FAST-TICKER-Interrupt (300 mal/sec.) läuft 
und damit doch spürbar Zeit beansprucht. 

Der Spooler kann jederzeit wieder eingeschaltet werden mit 
dem RSX-Befehl SPOOLER. Dabei berücksichtigt das Pro¬ 
gramm, ob der Spooler noch arbeitet. 

Und so funktioniertes 

Jedes Zeichen, das jetzt zur Centronics-Schnittstelle des 
Rechners geschickt werden soll, wird über den 'verbogenen’ 
Vektor IND MC WAIT PRINTER an das Treiberprogramm 
übergeben. Dieses blendet nun an Stelle der RAM-Bank 1 die 
SILICON-DISC-Bank 15 ein. Das heißt, an den Adressen 
&4000 bis &7FFF liegt jetzt nicht der Hauptspeicher, son¬ 
dern die obersten 16 kByte der SILICON DISC. Dieser Spei¬ 
cher wird nun mit dem zu druckenden Zeichen geladen. 
Dann wird das original RAM zurückgeblendet. Für das näch¬ 
ste Zeichen wiederholt sich dieser Vorgang komplett, weil 
vor jedem Zeichen ’nachgesehen’ werden muß, ob noch 
Platz ist. Wenn Sie also mehr als 16 kByte drucken wollen, 
müssen Sie einen Teil ausdrucken lassen, bevor Ihr Compu¬ 
ter wieder 'frei' wird. Der Drucker-Puffer wird als Ringspei¬ 
cher behandelt, das heißt, er muß nicht vollständig geleert 
werden, bevor er neu gefüllt werden kann. 

Geleert wird der Puffer praktisch genauso. Nur daß die Rou¬ 
tine, die dies erledigt in die Schnell-Takt-Liste eingetragen 
wurde. Das Programm läuft daher im Hintergrund und ver¬ 
sucht, 300mal in der Sekunde ein Zeichen an den Drucker 
’loszuwerden’. Das gelingt natürlich nur, wenn der Drucker 
kein BUSY-Signal sendet. 

Aus der Beschreibung des Verfahrens sollte klarwerden, daß 
sich der Spooler nur mit ’sauber’ programmierten Anwen¬ 
derprogrammen vertragen kann, das heißt, es müssen für den 
Druck auch tatsächlich die Betriebssystem-Vektoren benutzt 
werden. Sonst gehen die Druckaufträge am Spooler vorbei. 

Anpassung an andere Konfigurationen 

Modifikationen lassen sich am besten im Assembler-Listing 
vornehmen. Eine Verschiebung des Adreßraums, der für den 


Puffer-Speicher benutzt wird, kann durch eine Anpassung 
der EQU-Werte für ’UNTERG’ und ’OBERG’ (Zeilen 10 & 
11) auf die entprechenden Werte für unterste Adresse bzw. 
oberste Adresse +1 erreicht werden. 

Das Treiberprogramm wird durch die Änderung der ORG- 
Anweisung verschoben. Dabei muß aber unbedingt darauf 
geachtet werden, daß der Programm-Code nicht parallel zu 
den ROMs oder in der RAM-Bank, die umgeblendet wird, 
liegt. Beim 664 & 6128 würde ich es mit der ORG-Anwei¬ 
sung #B39B versuchen. 

Beide genannten Verschiebungen sind nur über das Assem¬ 
bler-Listing sinnvoll, weil sonst zu viele Adressen angepaßt 
werden müßten. Liegt eine andere Speichererweiterung vor, 
z.B. die zweiten 64 kByte im CPC 6128, die natürlich nicht 
gleichzeitig von einem Anwenderprogramm benutzt werden 
dürfen, so müssen Sie zuerst feststellen, mit welchen OUT- 
Befehlen die zusätzlichen Bänke eingeblendet werden kön¬ 
nen. Für den CPC 6128 war eine solche Tabelle in der PC In¬ 
ternational 11/87 (S.39) abgedruckt. 

Wollen Sie z.B. die Bank 7 des CPC 6128 anstelle der Bank 1 
einblenden, also im Adreßraum &4000 - &7FFF, so errei¬ 
chen Sie das mit dem Befehl: 

OUT &7F00, &C7 

Dabei ist &7F00 die Portadresse und &C0 der zu übergeben¬ 
de Wert. Wollen Sie das nun auf das Assemblerlisting über¬ 
tragen, so müssen Sie in den Zeilen 67 und 109 die Befehle 
LDBC, #7FFF 
durch 

LDBC, #7FC7 

ersetzen. Dadurch wird das B-Register mit dem High-Byte 
der Portadresse geladen und das C-Register mit dem zu über¬ 
gebenden Wert. Der folgende Befehl 

OUT (C),C 

müßte eigentlich OUT (B),C heißen, um seine Wirkung rich¬ 
tig zu beschreiben. Denn aufgrund der unvollständigen 
Adressierung der I/O-Adressen im CPC ist das B-Register 
entscheidend und das C-Register unmaßgeblich. 

Das Zurückblenden der Original-Bank muß nicht geändert 
werden. Es sei denn, Sie haben Ihre eigenen Konfigurations¬ 
wünsche. 

Liegt bereits der Object-Code vor, so kann an die zum Pro¬ 
grammanfang relativen Adressen &6E sowie &B1 der Wert 
&C7 eingetragen werden, und schon wird die entsprechende 
Bank benutzt. Voraussetzung ist natürlich, daß das Pro¬ 
gramm in seiner Länge nicht verändert wurde. 

Spooler ohne Speichererweiterung 

Wollen Sie den Spooler ohne Speichererweiterung benutzen, 
so suchen Sie sich einen geeigneten RAM-Bereich und tragen 
wie oben beschrieben die entprechenden Werte für 
UNTERG und OBERG ein. Dann löschen Sie im Assembler¬ 
listing alle Befehle, die eine Bankumschaltung vornehmen, 
also die Zeilen 66 bis 68, 70 bis 72, 109 bis 110 und 112 bis 
113. 

Hinweis 

Die im Assemblerlisting verwendeten Zeilennummern sind 
nur als Eingabehilfe gedacht, bitte nicht mit abtippen. 

(Bernd Noe/cd) 
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10 '** LADEPROGRAMM fuer SPOOLER ** 

20 darf nur einmal aufgerufen werden !: 

25 ' Ausschalten mit CTRL+ESC 

30 LOAD spooler.bin 

40 CALL &B700 'ggf. anpassen 

50 !SPOOLER 

60 DELETE 10-60 


1 ';** SPOOLER ** 22.7.87 Bernd Noe 

2 ';SO nur mit SDISC ! Bank 15 wird als Puffer be 
nutzt 

3 ';Vorsicht mit Sound !!! oder ander. ORG 

4 ' 

5 ';Einscha1ten: !SPOOLER - beachtet Ob Spooler 

noch belegt 

6 Ausschal ten : CTRL + ESC 

7 ' 

8 'ORG #8700;-- Startadresse — 

inclusive 
exclusive 


9 1 

10 'UNTERG:EQU #4000 

11 'OBERG:EQU #8000 

12 ' 

13 'RSX:LO BC.COMTAB 
ichten 

14 'LD HL,KERNEL 

15 'JP #BCD1 

16 ' 

17 'KERNEL:DEFS 4 

18 'COMTAB:DEFW NAMTAB 

19 'JP 1SPOEIN 

20 'NAMTAB:DEFM "SPOOLE 

21 ’DEFB "R" + # 80 

22 'DEFB 0 

23 1 

24 'ENT$ 

t # B 7 0 0 )- 

25 1 

26 'SPOEIN:LD HL,PUFFER 

27 'LD (#BDF2),HL 
igene Routine 

28 ' 

29 'LD HL,(AUSZG) 

30 'LD DE,(EINZG) 

31 'AND A 

32 'SBC HL,DE 

33 'RET NZ 

34 ' 

35 'LO HL,UNTERG 
renze 

36 'LD (EINZG),HL 

37 'LO (AUSZG),HL 

38 ' 

39 'LO HL,BLOCK 

40 'LOB,#80 

41 'LD DE,AUSGAB 

42 'CALL # BCE 0 

43 'RET 

44 ' 

45 BLOCK:DEFS 9 
er #BFFF 

46 ' 

47 'SPOAUS:LD HL,BLOCK 

48 ‘CALL # BCE 6 

49 'CALL # BD2 8 

50 'LD HL,(AUSZG) 
en Wert setzen 

51 'LD (EINZG),HL 

52 'LD HL,TEXT 

53 'WT:LD A,(HL) 

54 'CP 0 

55 'RET Z 

56 'CALL #BB5A 

57 'INC HL 

58 'JR WT 


Listing Spooler 


* RSX-Be f eh 1 ;SPOOLER einr 

4 Bytes fuer Kernel 
KL LOG EXT 

;- nur zum Testen (sons 

;* START fuer RSX-Befehl 
;IND MC WAIT PRINTER auf e 

;* Spooler noch belegt ? 

; JA 

;Zeiger auf Puffer-Unterg 

;FAST TICKER ein 
;Asynchron 

;KL NEW FAST TICKER 

;NIE unter #4000 oder ueb 

iSpooler ausschalten 
; KL DEL FAST TICKER 
:MC RESET PRINTER 
; EINZG & AUSZG auf gleich 

;MELDUNG ausgeben 


59 ' 

60 ' 

61 'PUFFER:PUSH HL 
n 

62 'PUSH DE 

63 'PUSH BC 

64 'LO DE,(EINZG) 

65 ' 

66 ' DI 

67 ' LD BC,#7FFF 

68 'OUT (C),C 
SD-BANK 15 

69 'LD (DE),A 

70 'LD C,192 

71 'OUT (C),C 

72 ' EI 

73 ' 

74 'INC DE 

75 'LD HL,OBERG 

76 'AND A 

77 'S8C HL,DE 

78 'JR NZ,W1 

79 'LD DE,UNTERG 
achen 

80 ' 

81 Wl:LD HL,(AUSZG) 

82 AND A 

83 'SBC HL,DE 

84 'JR Z.W2 
ry 0) 

85 'LD (EINZG),DE 

86 'SCF 

87 'W2:POP BC 

88 'POP DE 

89 'POP HL 

90 'RET 

91 ' 

92 ' 

93 'AUSGAB:LD A,66 
(ESC= 6 6) 

94 'CALL #B81E 

95 'JR Z,W3 

96 'BIT 7,C 

97 'JR NZ,SPOAUS 

98 ' 

99 'W3:LD HL,(AUSZG) 

100 'LD DE,(EINZG) 

101 'AND A 

102 'SBC HL,DE 

103 'RET Z 

104 ' 

105 'CALL #BD2E 

106 'RET C 

107 'ADD HL,DE 

108 ' 

109 'LD BC,# 7FFF 

110 'OUT (C),C 
SD-BANK 15 

111 1 LD A,(HL) 

112 'LD C,192 

113 'OUT (C),C 

114 ' 

115 'CALL #BD31 

116 'INC HL 

117 'LD (AUSZG),HL 

118 ' 

119 'LD OE,OBERG 

120 AND A 

121 SBC HL,DE 

122 'RET NZ 

123 'LD HL,UNTERG 
achen 

124 'LD (AUSZG),HL 

125 RET 

126 ' 

127 'EINZG:DEFS 2 

128 ’AUSZG:DEFS 2 

129 'TEXT:DEFB 10,13 

130 DEFM "** SPOOLER a 

131 'DEFB 10,13,0 

132 '* L + 

133 'ENDE: 


Listing Spooler 


;* Puffer als Ring fuelle 


* Zeichen in Puffer 

PORT # 7FOO, Wert #FF : 

in Puffer 
Original bank 
zu rueckblenden 


!* 08ERGrenze erreicht ? 

; NEIN 

', JA: von unten weitern 

; * noch Platz ? 


NEIN: zureuck mit (Car 

JA: EINZG weitersetzen 
(Carry 1) 


;* Ausschalten mit ESC ? 

; KM TEST KEY 
; Taste nicht gedrueckt 
; CTRL-Status 
; CTRL gedrueckt 

;* noch Zeichen vorhanden 


; NEIN 

: MC BUSY PRINTER 
; Pr 1nter busy 


;* Zeichen in Puffer 
; PORT # 7 F 00 , Wert # F F 

; aus Puffer 
I Original bank 
; zurueckblenden 

;MC SEND PRINTER 


;* OBERGrenze erreicht 


NEIN 

JA: von unten weiterm 


s ! * *" 


nicht ueber #B 7FF ! 
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Fensterin 

Der Super-Katalog 

Wer hat es nicht schon einmal erlebt: Sie haben ein tolles Pro¬ 
gramm geschrieben, in dem durch eine kleine Routine der Ka¬ 
talog der Diskette aufgerufen wird. Hierfür haben Sie eigens 
das Fenster #0 zum Aufruf neu eingerichtet. Eine Weile ha¬ 
ben Sie mit Ihrem Programm auch gearbeitet, und alles lief 
vollkommen tadellos. Die Dateien auf der Diskette nahmen 
immer mehr zu, und der Katalog wurde immer umfangrei¬ 
cher. Dann eines Tages, als Sie erneut den erwünschten Kata¬ 
log aufrufen, passiert es. Das eingerichtete Fenster wird ge¬ 
löscht. 

Eine Routine muß her, welche es ermöglicht, wie auf einem PC den 
Katalog individuell innerhalb eines Fensters aufzurufen, welches 
selbsttätig erkennt, daß die letzte Zeile beschrieben wurde, und zur 
weiteren Auflistung einen Tastendruck erwartet. Aber wie soll man 
das aus dem BASIC heraus bewerkstelligen? 

Dies ist leider nicht möglich. Eben für diese Eventualität wurde die 
nachfolgende abgedruckte Routine erstellt. 

Möglichkeiten des Programmes 

Von Aufruf zu Aufruf können Sie ein separates Fenster definieren, 
indem der Katalog der Diskette ausgegeben wird. Und das alles mit 
einem komfortablen RSX-Befehl mit nur lächerlichen drei Parame¬ 
tern. Ist das Fenster mit Dateinamen gefüllt, erkennt das Programm 
dieses automatisch, um zur Fortführung auf einen Tastendruck zu 
warten. Komfortabler ist ein reiner Katalog wohl kaum auszuge¬ 
ben. 


Syntax 

ICAT,(links),(oben),(unten). 

Die zu übergebenden Parameter sind zum Teil modusabhängig. Be¬ 
achten Sie daher, in welchem Mode Sie bei Aufruf gerade arbeiten. 
Die Größe der Werte ist die gleiche wie bei dem WINDOW-Befehl. 
Nur das hier der Wert für die Einrichtung der rechten Begrenzung 
der X-Achse entfallt. Dieser wird automatisch vom Programm ein¬ 
gerichtet und ist immer 14 Spalten größer, als der Wert der linken 
Randbegrenzung. Folglich ist zu beachten, daß für den Wert links 
nur solche Angaben gemacht werden, daß immer noch ein Spiel¬ 
raum von 14 Zeichen in der Horizontalen verbleibt. Zwischen oben 
und unten sollte immer ein Mindestunterschied von 3 bestehen. 

Vom Anwender zu beachten 

Der Katalog wird im Window #7 ausgegeben. Tragen Sie Sorge 
dafür, daß wenn auch Sie dieses Fenster benutzen, es sofort nach 
Abschluß des ICAT wieder neu einrichten, da es sonst im Pro¬ 
grammverlauf zu Schwierigkeiten kommen kann. 

Ferner ist zu berücksichtigen, daß bei der Routine PEN 1 und PA¬ 
PER 0 benutzt wird. Dieses läßt sich nicht ändern. Auch nicht 
durch ein PRINT CHR$(24). 

Einbindung der Routine 

Tippen Sie zunächst den Data-Lader ab. Zur Sicherheit speichern 
Sie diesen vor dem Start ab. Nach RUN wird dann die Binärdatei 
“KATALOG.BIN“ abgespeichert. Dieses wird auf folgende Weise 
aktiviert: 

10 MEMORY &979B:L0AD“KATAL0G.BIN“:CALL &979C 

Den CALL bitte nur einmal durchführen. Hierdurch wird der RSX- 
Befehl initialisiert. Danach können Sie sich Ihren individuellen Ka¬ 
talog ausgeben lassen. 

Das Assemblerlisting können Sie mit dem CPC-Assembler aus Heft 
6/88 assemblieren! (Holger Schäkel/cd) 


für 6128 


Ini 


' * K AT A LOG.DAT - DATA-Lader von ' CPC ' * 


10 
20 
30 
40 ' 

50 OATA 979C,01.A6,97,21,AE,97,CD,Dl,3F97 
60 OATA 97A4,BC,C9,AA,97,18,08,43,41,7057 
70 DATA 97AC, D4,00,2E , 00,54,33 , FE, 03,6C.53 
80 DATA 9784,CO,21,44,98,10,00,56,04,6474 
90 OATA 97BC,15,72,23,36,00,82,77.23,1320 
100 OATA 97C4,DD,56,02, 15.72,23,73 , 7B, 7991 
110 DATA 97CC,92,32,59,98,3E,07,CD,B4,47E2 
120 DATA 9704,BB,21,43.98,06,OA,7E,CD,5409 
130 OATA 97DC,5A,BB,23,10,F9,11,5A,98,0100 
140 OATA 97E4,D5,3E,15,CD,5A,BB,CO,9B,6A4D 
150 OATA 97EC,BC,3E,06,CD,5A,8B,E1,23,5C4D 
160 OATA 97F4,3E,20,CD,5A,BB,06,08,7E.0EAE 
170 DATA 97FC,CD,SA,BB,23,10,F9,3E,2E,6666 
180 DATA 9804,CD,5A,BB,06,03,7E,CD,5A,6720 
190 OATA 9800,BB,23,10,F9,3E,00,CD,5A,5804 
200 DATA 9814,BB,3E,OA.CD,5A,BB,23.23,5FC9 
210 DATA 981C,23.E5,CD,78,BB,7D,21,59,3207 
220 DATA 9824,98,BE,28,07,El,7E,FE,00,61FC 
230 DATA 982C,20,C6,C9,21,40,98.O6.0C,3AB8 
240 DATA 9834,7E,CD,5A,BB,23,10,F9,CD,0CD7 
250 DATA 983C,06,B8,CD,6C,BB,18,E5,1A.36C8 
260 DATA 9844,00,00,00,00,OE,00,OF,01,006F 
270 DATA 984C.0C,OA,20,18,3E,54,41,53,0171 
280 DATA 9854,54,45,3C,18,07,00,00,31,3D49 
290 DATA »ENDE* 

300 adr=4979C:zeile=50:MEMORY adr-1 
310 READ d$:IF d$="*ENDE*"THEN 420 
320 pr=0 

330 FOR 1=1 TO 8 

340 READ a$ : a = VAL("4"+a$) 

350 POKE adr , a:adr = adr+1 

360 pr=pr*2:IF pr>65535 THEN pr=pr-65535 
370 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 
36 

380 NEXT 1 

390 READ pr$:pr2 = VAL(‘'4" + pr$):IF pr2<0 THE 
N pr2=pr2+65536 

400 IF pr<>pr2 THEN PRINT"Pruefsummenfeh 1e 

r ln Zei1e";ze11e:STOP 

410 zei1e=ze1le+10:GOTO 310 

420 SAVE"KATALOG.BIN",B,4979C,4BF 

430 PRINT d$:END 


[1543] 

[1473] 

[1543] 

[117] 

[1217] 

[1363] 

[1529] 

[1535] 

[1778] 

[1236] 

[ 1707 ] 

[ 1669 ] 

[1875] 

[1843] 

[ 2101 ] 

[1144 ] 

( 1366 ] 

[2130] 

[2412] 

[2766] 

[1606] 

[1656] 

[2005] 

[1768] 

[1216] 

[1333] 

[907] 

[1559] 

[502] 

[2643] 

[1156] 

[117] 

[462 ] 

[883] 

[717] 

[2485] 

[1890] 

[ 375 ] 
[2610] 

[3615] 

[ 20S8 ] 
[1108] 
l 346] 


10 Demoprogramm zu KATALOG 
20 ' 

30 MODE 2:MEMORY 4979B.IF PEEK(4979C)=0 TH 
EN LOAD"katalog.bin":CALL 4979C 
40 PEN 0:PAPER 1:CLS:PRINT"Ich gebe Ihnen 
nach Tastendruck den Catalog einer eingele 
gten Oiskette auf unkonventionelle We 

1 se aus : " 

50 WHILE INKEV$ < >"“iWEND:CALL 48B06:ICAT,1 
2,12,17 

60 PRINT:PRINT"Oder mal woanders":!CAT,60, 
4,20 

70 PRINT:PRINT"Jetzt Mitte Bi 1dschirm:": !C 
AT,34,6,12 

80 MODE 1:CLS:PRINT"Und im Mode 1 geht das 
so:":!CAT,12,6,14 
90 END 


[1581] 

[117] 

[3647] 

[12319 ] 

[3398] 

[3656] 

[3788] 

[4140] 

[ 110 ] 


10 ' 

org &979c 

;Aufruf ICAT,(links) 

[3806] 

,(oben),(unten) >Modusabhaengig< 


20 ' 

1d bc,rsxtab 

;RSX-Einbindung ICAT 

[2634 ] 

30 ' 

1 d hl ,sysbyt 


[ 1099 ] 

40 ' 

call 4bcd1 


[ 780] 

50 1 

ret 


[ 476 ] 

60 ' 

rsxtab dw namtab 


[1576] 

70 1 

jr Start 


[ 768) 

80 1 

namtab dm ”CA" 


[ 487 ] 

90 1 

db 212,0 


[688] 

100 

' sysbyt ds 4 


[940] 

110 

' Start cp 3 

;Start (Ve rg 1 e 

[3375] 

ich 

ob 2 Werte mit uebergeben wurden) 


120 

' ret nz 

;wenn nicht zurueck 

[1719] 

ins 

Basic 



130 

‘ ld hl.merk 

;HL mit Speicheradr. 

[4564] 

der 

Fensterparameter 

1 aden 


140 

‘ dec e 

;Parameter fuer UNTE 

[2809 ) 

N ernledrigen 



150 

' ld d,(1x+4) 

;Pa ramete r fuer LINK 

[ 1789 ] 

S an 

D 



160 

' dec d 

;und eins erniedrige 

[ 1632 ] 

n 

170 

' ld (hl ) ,d 

;und sidhern 

[ 769 ] 


Lisiing "Fensterln" 


Listing "Fensterln" 
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;Zeichen wieder nach [1610] 


180 ' 

i nc hl 

;HL als Zeiger auf A 

(2744] 

dresse des linken Randes #7 


190 ' 

Id a,13 

;linken Rand plus 13 

[ 3955 ] 

= rechter Rand 



200 

add a,d 


( 358 ) 

210 ' 

Id (hl ) ,a 

;rechten Rand sicher 

[1331] 

n 

220 

i nc hl 


[195] 

230 

Id d , (ix + 2 ) 

;OBEN an D 

[1433] 

240 

dec d 

;und um eins erniedr 

[2751] 

i gen 




250 

ld (hl),d 

;siche rn 

[ 634 ] 

260 ' 

i nc hl 


[195] 

270 ' 

1 d ( hl ) , e 

;unten sichern 

[ 967] 

280 ' 

1 d a , e 


( 652 ] 

290 ' 

sub d 


[243] 

300 ' 

1d (me r k3) ,a 


[ 424 ] 

310 ' 

1 d a , 7 

;Windowt»7 anwaehlen 

[1973] 

320 

call &bbb4 


[781] 

330 ' 

ld hl,zeitab 

jAdresse der Zeichen 

[2379] 

tabeIle an HL 



340 ' 

1d b,10 

;Anzahl der auszugeb 

[3929 ] 

enden 

Zeichen nach B 



350 ' 

hier ld a,(hl) 

;A mit ASCII-Wert de 

[2156] 

s Zeichens 1aden 



360 ' 

call &bb5a 

;und ausgeben 

[1641] 

370 ' 

i nc hl 

;2 eige r er hoehen 

[1179] 

380 ' 

djnz hier 

;Schl eifenende 

[2574] 

390 ' 

1 d de,ende 

;DE mit Adresse eine 

[3771] 

s 2048 Bytes-Buffers 

1 aden 


400 ' 

push de 

;und me r ken 

[861 ] 

410 ' 

1d a,21 

iBildschirm sperren 

( 1442] 

420 ’ 

cal1 &bb5a 


t 794] 

430 ' 

cal1 &bc9b 

;DI SK CATAL0G aufruf 

[1545] 

en 




440 ' 

ld a , 6 

IBildschirm anschalt 

[2236 ] 

en 




450 • 

call &bb5a 


( 794] 

460 1 

pop hl 

;Ad resse 2048 Zeiche 

[ 2665 ] 

n Buffer nun an HL 



470 ' 

1 nc hl 

;und um eins erhoehe 

[1766] 

480 ’ 

anf ld a,32 

;vor jedem File ein 

[ 1439 ] 

Lee rze1chen 



490 ' 

call &bb5a 

;ausgeben 

[1390] 

500 ' 

ld b, 8 

;die ersten 8 Zeiche 

[3155] 

n des 

Files ausgeben 



510 ' 

rum 1d a,(hl ) 

;Zeichen nach A 

[2399] 

520 1 

call &bb5a 

;und ausgeben 

( 1641 ) 

530 • 

ine hl 

iZeiger erhoehen 

[1179] 

540 1 

djnz rum 

;Sch 1eifenende 

[2478] 

550 ' 

1 d a , " . " 

;den Punkt fuer die 

[3496] 

Abgrenzung zur Extens 

ion ausgeben 


560 

call &bb5a 


[ 794 ] 

570 1 

1 d b, 3 

;und zu guter letzt 

[3962] 

die Extension ausgeoen 



580 1 zur Id a, (hl ) 


A 


590 ' 

cal1 &bb5a 

;ausgeben 

[1390] 

600 ' 

ine hl 

iZeiger erhoehen 

[1179] 

610 ' 

djnz zur 

;Schl eifenende 

[ 2759 ] 

620 ' 

ld a, 13 

iCARRIAGE RETURN aus 

[2212] 

geben 



630 

ca 11 &bb5a 


[ 794 ] 

640 ' 

ld a. 10 


[ 783] 

650 ' 

call &bb5a 


[ 794 ] 

660 ' 

i nc hl 

;Steuerzeichen im Bu 

[2821] 

f f e r 

uebe r spr i ngen 



670 ’ 

1 nc hl 


[ 195] 

680 ' 

ine hl 


[195] 

690 ' 

push hl 

;HL merken 

[863] 

700 ' 

call &bb 7 8 

;Cursorpos. pruefen 

[2749] 

710 ’ 

1 d a , 1 

;Vertikale an A 

[1064] 

720 1 

1d hl ,me rk 3 


[ 1290] 

730 • 

cp (hl) 

;Verg1eich ob untere 

[4011] 

r Bi 1 

dschirmrand 



740 - 

j r z,zwisch 

;wenn ja, dann >TAST 

[2788) 

E<-Routine aufrufen 



750 1 

eing pop hl 

;HL von Stapel holen 

[2051] 

760 ’ 

1 d a , ( hl ) 

•.Inhalt des Speicher 

[ 3461 ] 

s an 

A 



770 • 

cp 0 

jVergleich ob Ende K 

[3751] 

ATALOG erreicht 0-Byte 



780 ' 

j r nz,anf 

;wenn nicht, dann na 

[ 3562 ] 

echstes File ausgeben 



790 ' 

ret 

iRuecksprung ins Bas 

[2416] 

1 c 




800 ' 

zwisch ld hl.neutab ;>TASTE<-Routin 

[3199 ] 

e 

810 ' 

ld b,12 

lAnzahl Zeichen an B 

[2894] 

820 1 

umg 1d a,(h1 ) 

;ASCII-Wb rt an A 

[2311] 

830 ’ 

ca 11 &Db5a 

;und ausgeben 

[1641 ] 

840 ' 

ine hl 

iZeiger erhoehen 

[1179] 

850 ' 

djnz umg 

;Sch 1eifenende 

[2529] 

860 ' 

call &bb06 

;Auf Tastendruck war 

[17751 

ten 




870 ‘ 

ca 11 &bb6c 

;CLEAR SCREEN fuer * 

[3103] 

7 aufrufen 



880 

j r eing 

;und wieder zurueck 

[ 888] 

890 

zeitab db 26 

;Ab hier Zeichentabe 

[2486] 

1.1 en 




900 

merk db 0,0 


[ 583 ] 

910 

merkl db 0 


[930] 

920 

me rk2 db 0,14,0, 

15,1,12 

[1475] 

930 

neutab db 10,32, 

24 

[ 694 ] 

940 

dm ">TASTE<" 


[ 443 ] 

950 

db 24,7 


[ 649 ] 

960 

merk3 db 0 


[ 850] 

970 

ende nop 

;Beginn des 2048 Byt 

[7335] 


es-Buffers, Fuer Zwecke der Eigenassemblie 
rung, waere hier wohl ein DS 2048 angebrac 
ht. 


Listing "Fensterln" 


Listing "Fensterln" 


Pio-Vestqn & Pio-ßoorta § 

PRO DESIGN eröffnet Ihnen die faszinierende Welt des Grafik-Designs. Im Hand¬ 
umdrehen erstellen Sie professionelle Grafiken für alle Bereiche. Software vom 
Feinsten für CPC 464/664/6128. 

— Ausführliches deutsches Handbuch im stabilen DIN-A5-Ordner 

— 10 tolle Schriften * CPC-Zeichensatz ' Rahmen ' Schmucklinien * Piktogramms 

— Desktop-Steuerung mit selektiven Disketten-Katalogen (superkomfortabel) 

— Bis zu 16 Druckformate /144 Ausgabeformulare 

— Kostenloser Drucker-Anpassungs-Servlce 

— Viele Zusatzschriften auf Erweiterungsdisketten 

— Hervorragendes Echo in der Fachpresse (z.B. Amstrad International 10/88) 

— PRO-DESIGN 2.0 3"-Diskette * Handbuch für nur 64,95 DM 

— PRO-BOOSTER, die Superergänzung zu Pro-Design: 

— Postereditor zur Erstellung bis zu 80 (achtzig!) Seiten langer Schriftbänder 

— Snapshot-Utility, Dokumenten-Druckprogramm (u.a. 24-NafeHreiber) 

— PRO-BOOSTER, 3"-Diskette * Anleitung für nur 34,95 DM 

Versand gegen Vorauskasse (frei) oder Nachnahme (+ 6,- DM) * Händleranfragen angenehm 


tJT c 


KOSTENLOSES INFO 


Axel Weber, Postfach 260154, D 5600 Wuppertal 26 

Crusaöer Software 


CPC-820 KB 5,25 u Floppy 


5,25" Teamdrive Super Diskettenstation 820 KB, 256 Einträge, anschluBfertig f 464, 664, 6128. 
Gehäuse siehe Abbildung, umschaltbar auf 180 KB, incl. Teamdrive-Maxi-Programm 
vollkompatibel zu BASIC. CPM u CPM-Plus. hochwertiges Floppylaufwerk, benutzerfreundlich, in¬ 
ternes Netzteil, problemloser Anschluß, mit Bedienungsanleitung. 1 Jahr Garantie DM 369, - 

JOYCE 720 KB 5.25“ Floppy .-* 


Teamdrive Diskettenstation. Gehäuse siehe Bild. if- - \ 

internes Netzteil, komplett mit Anschlußkabel u. ^ Q 

incl. Umschalter für MS-Copy 

DM 369. - 

Spezialkabel f Joyce Plus (8512) mit Umschalter vom 3" B-Laulwerk intern zum 5,25” 
B-Laufwerk extern 

DM 30, - 

MS-Copy: sehr nützliches Programm zum Kopieren von CPM auf MS-DOS- 
Textdateien und umgekehrt 

DM 49, - 

MSD: Anschlußkabel lür unsere CPC und Joyce-Disketteostatlonen an MS-DOS- 
Rechnern, mit Anleitung für 360 KB und 720 KB 

DM35,- 

Preise zzgl. Porto u Verpackung, Versand per Nachnahme. Liste kostenlos 


Krebs electronic 


Datentechnik - Computer - Hardware u. Software 

6751 Weilerbach, Tel. 063 74 - 68 78 















l~Programm 


Auf einen Blick 



Filme können leicht editiert und geändert werden. 


Videoverwaltung 


Um dem Wunsch vieler Leser nach¬ 
zukommen, bieten wir Ihnen eine 
Videoverwaltung für den privaten 
Anwender, mit der Sie Ihre Video- 
filme archivieren können. 

Bedienungsanleitung 

Filme anmelden (5): 

Diese Option müssen Sie zuerst anwäh¬ 
len. Sie werden gefragt, wie viele Kas¬ 
setten Sie gekauft haben. Sie geben 
also die Gesamtzahl der ihnen zur Ver¬ 
fügung stehenden Kassetten an. Dann 
werden ihnen die Nummern der Kas¬ 
setten auf dem Bildschirm angezeigt, 
und Sie können kontrollieren. Für die¬ 
se Kassetten müssen Sie nun einzeln 
die Länge eingeben, also das, was auf 
der Videokassettenhülle mit E gekenn¬ 
zeichnet ist (z.B. El20, El80, E240). 
Wenn Sie fertig sind, kommen Sie zu¬ 
rück ins Hauptmenü. 

In diesem Moment sind alle Kassetten 
mit folgenden Eintragungen gekenn¬ 
zeichnet: 


Titel: frei 
Länge: —— min 
Darsteller: — 

Genre: — 

Kapazität: E (120, 

180 oder 240, je 
nachdem, was Sie 
eingegeben 
haben). 

Filme überspielen (1): 

Als nächstes müssen Sie diese Option 
an wählen. Nun können Sie die Kasset¬ 
ten mit den Titeln, Längen, Zählerstän¬ 
den und Genres versehen. Sie werden 
nach der Nummer des Films gefragt, 
beim ersten Mal geben Sie 1 ein. Es er¬ 
folgt noch eine Sicherheitsabfrage, 
aber nur wenn die Videokassette vor¬ 
her schon bespielt war. Dann können 
Sie den neuen Film eingeben. Wenn 
Sie damit fertig sind, werden Sie aufge¬ 
fordert die < ENTER >-Taste zu 
drücken. Wenn Sie das tun, landen Sie 
wieder im Hauptmenü. Sie können 
aber auch die nicht aufgeführte Taste 
W drücken, dann 
wird automatisch 
der nächste Film 
angefahren, in un¬ 
serem Beispiel 
also 2. Diese Taste 
dient eigentlich 
nur zur Erleichte¬ 
rung beim ersten 
Eingeben. 

Filme aus- 
drucken (2): 

Sie landen nun im 
Druckmenü. Wenn 
Sie den Drucker 
wählen (1), wird 
die Liste sofort 
ausgedruckt. Bei 
(2) wird die voll¬ 
ständige Liste 
Film für Film auf 
dem Bildschirm 
ausgegeben. Bei 
(0) nur die Titel als 
Schnellüberblick. 
Mit der Taste 
ENTER/RETURN 
kommen Sie ins 
Hauptmenü zurück. 


Filme anhängen (3): 

Sollten Sie viele E240er Kassetten be¬ 
nutzen, können Sie damit einen zwei¬ 
ten, dritten, vierten, usw. Film auf der 
Kassette anhängen. Hierbei muß gesagt 
werden, daß der zweite Titel einfach 
durch einen Querbalken an den ersten 
Titel angehängt wird. Also darf der 
Gesamttitel, also Film 1 und Film 2, 
nur maximal 65 Buchstaben haben, 
was aber für fast alle Filme ausreicht. 
Der Zähler darf übrigens nur 19, die 
Länge 18 und das Genre maximal 19 
Buchstaben haben. Die verbleibenden 
Zeichen werden bei der Eingabe als 
Punkte angezeigt, und bei falscher Ein¬ 
gabe wird erneut gefragt. Sie können 
hier nichts falsch machen. 

Filme editieren (4): 

Diese Option dient vor allem zur Aus¬ 
besserung von Schreibfehlern, und 
man kann damit die einzelnen Eintra¬ 
gungen korrigieren oder auch abän¬ 
dern. Sollten Sie zum Beispiel zwei 
Spielfilme auf einer Kassette haben, so 
bietet sich das Genre: Spielfilm / Spiel¬ 
film nicht an. Man kann vielmehr ein 
’e’ anhängen und schon hat man die 
Mehrzahl von Spielfilm (Sie müssen 
also 'Spielfilme’ eingeben). Wenn Sie 
Ihre Änderung mitgeteilt haben, er¬ 
folgt noch eine Sicherheitsabfrage, und 
Sie landen wieder im Menü des EDI¬ 
TORS. Das Ändern der Kapazität ist 
nur dann sinnvoll, wenn Sie eine Kas¬ 
sette aufgrund schlechter Qualität aus¬ 
rangieren wollen. Mit ENTER gelangt 
man vom EDITOR wieder ins Haupt¬ 
menü. 

Programm beenden (0): 

Unten im Hauptmenü erscheint noch 
eine Sicherheitsabfrage, und dann wird 
die Video-Datei auf Diskette übertra¬ 
gen, damit Ihnen beim nächstem Mal 
noch alle Daten zur Verfügung stehen. 


Pideoiila - Verzeichnis 


Vioeo 1. i 




large: IIS »in/E2*0 


Zahler: 0 


Senne: Jane« Bone Fs I« 

vioeo 

2. I 

•Ji SeMiMitost ihrer umMt* 
large: 130 un/ElSO 


Zahler: 0 


Senre: Jane« Bora Filn 

V13IÖ 

3, i 

njtu/s nie 9 
.ingt: 115 «lft/ElBO 


Zähler: 0 


Senre: Jaees Bond File 

ViflBO 

«. i 

■«»: Mt »er :«*!«;• 
lange: 112 ein/ElBD 


Zähler: 0 

-Hl- 

Genre: Jaies Bona Elle 

v:eeo 

5. i 

•FieerMlJ" 
lange: 325 em/El90 


Zähler: 0 


6enre: Jaies Bong FiSi 

VlOeC 

6. 1 

-8eJ«f:nj»r- 
lange: 10S em/ElBO 


Zahler: 0 


Servil Janei Bene Filn 

VlCK 

7. 1 

: •luMJgrud» lui totkW 
large: 110 »in/£120 


Zahler: 0 

-f-f- 

Genre: Jane« Bono Filn 

Vltto 

e. i 

; ‘Jim Besä Ir.Hi>’ 

Urft: 105 nsn/ESSO 


Zahler: 0 


Senne: Jane« Bane Fs l« 

Vian 

9. . 

: "Du Brett / Omir 1 er £h>« ' S*elc»up - 
lange: ein/ElW 

Zahlen 0 


Senrei mterhaltung 

viaeo 

10. : 

i 'Sterflight 0»# - JrrfJuj |»j Air 
ienge: 105 •IO/E120 


Zählen 0 


Genre: Octior.tile 

VlSeo 


: -to.'ty Pirf 

lange: 325 Iin/EIB3 


Zählen 0 


Senrei Spielflln 

vic*: 

12. 

i "tnr 

Lange: --- IUI/EI80 


Zahler: 0 


Serre: - 

Vicec 

13. 

i $<»:»»,V 

Lange: 183 e:n/£2*0 


Zahler: 0 


Serve: So:»l*il» 

Vioeo 

1*. 

: "Pttt I 0 e» Mtrtt' 

Lange: HO »IWEI20 


Zahler: 0 

•Hl- 

Senr»: «ctionfiln 

Vioto 

lt. 

: 'IftscMltti n Pwtit" 

Large: 100 «ir/EliO 


Zahler: 0 

-f-l- 

Senne: Actionfll* 

Vl«0 

16. 

: "0n »am ul eee geleene» Ctlt" 
large: 120 eir/El20 


Zähler: 0 


Senre: Jane« Bona F:ln 

V|fl#0 

17. 

: ‘»Wert 80 - Oie Coicoräf' 

.arge: 105 em/E120 


Zähler: 0 


Senrei «ttionFile 


Der Inhalt der Videokassetten kann auf einem Drucker oder Monitor ausge¬ 
geben werden. Wer möchte, kann auch einen Schnellüberblick der gesam¬ 
ten Filme erhalten 


60 PC 6’89 








Programm—| 


(Beim ersten Mal erscheint kurz die 
Fehlermeldung 'VIDEO .DAT not 
found’ — das ist aber nicht weiter tra¬ 
gisch, sondern hat seine Richtigkeit. 
Geben Sie nun GOTO 200 ein! Beim 
weiteren Benutzen wird Sie nicht mehr 
auftauchen.) Wenn Sie einen anderen 
Drucker als einen aus der DMP-Serie 
oder den NLQ 401 benutzen, so kön¬ 
nen Sie die Steuercodes, die im Listing 


hinreichend beschrieben sind, abän¬ 
dern, damit Sie mit ihrem Drucker ar¬ 
beiten können. Mit einem Typenrad¬ 
drucker funktioniert die ganze Sache 
wahrscheinlich (???) nicht, weil die Li¬ 
ste in Schmalschrift ausgedruckt wird. 
Bei Betrieb mit dem Kassettenrecor¬ 
der, der nicht zu empfehlen ist, da die¬ 
ses Programm auf Diskette ausgelegt 
wurde, müssen die Files in folgender 


Reihenfolge auf der Kassette sein: 

1. ) VIDEO.BAS 

2. ) VIDE02.PGM 

3. ) VIDEO.DAT 

Der Löschbefehl ’ERA,a$' unter dem 
Programmteil 'Programm beenden’ 
muß dann entfernt werden. 

Gestartet wird das Programm mit RUN 
“Video. Bas“’. 

(Marc Roßkopf/cd) 


für 464-664-6128 


& 


10 • 


20 ' 

30 ' Lader + deutschen Zeichensatz einbind 
en: Listing 1 
40 ' 

50 '- 

60 SYMBOL AFTER 91 

70 SYMBOL 91,8.66 ,&18 ,&3C ,&66 ,&7E ,&66 ,&66 , & 
0 

80 SYMBOL 92,&66,&3C,&66,&66,&66,&66,S,3C,& 
0 

90 SYMBOL 93,&66,&44,&66,&66,&66,&66,&3C,& 
0 

100 SYMBOL 123 I &CC I &0,&78,&C,&7C,&CC,&76,& 
0 

110 SYMBOL 124 ,&66,8.0,8.3C ,&66 ,&66 ,&66 ,&3C , 

8.0 

120 SYMBOL 125,8.66,8.0,8.66,&66 ,8,66,8.66,8.3E, 

8.0 

130 SYMBOL 126,8.30,8.66,566,8.60,8.66,8.66,8.60 
, &60 

140 KEY DEF 17,1,125,93 
150 KEY DEF 19,1,123,91 
160 KEY DEF 22,1,124,92 
170 KEY DEF 26,1,124,92,64 
180 KEY DEF 24,1,126,94,0 
190 RUN"video2.pgm 


[ 3588 ] 

[117] 

[ 3239 ) 

[117] 

[3588] 

[1213] 

[1766] 

[2304] 

[2113] 

[264?] 

[2094] 

[ 2278 ] 

[2404] 

[ 746 ] 

[ 1140] 
[ 1264] 
[ 765 ] 

[ 1480] 
[ 164] 


10 

20 

30 

40 

50 

60 

70 

110 

120 


******************* 

* * 

* Videoverwaltung * 

* * 
******************* 

1988/89 by Marc Ro'kopf 


130 

140 

150 

160 


Datei einiesen 


170 OPENOUT"D":MEMORY HIMEM-1:CLOSEOUT:KEY 
1,"1":SYMBOL 255,255,0,0,0,0,0,0,0 
180 maxcas=150:DIM VIDEO$(maxcas,5 ) 

190 OPENIN"video.DAT":INPUT#9,filmzahl:FOR 
n r=1 TO f i lmzahl : INPUT»*9 , vi deo$ ( nr , 1 ) , vi d 
eo$(nr,2),video$(nr,3),video$(nr,4),video$ 
(n r,5):NEXT nr:CLOSEIN 

200 'Festlegen der maximalen L{ngen der St 
rings: 

210 FOR 1a=1 TO 5:REA0 1 :1 (1a) = 1 :NEXT : 1a = 0 
: 1=0 

220 DATA 65,14,41,22,3 

230 '- 


240 

250 


Menue ausgeben 


[ 669 ] 
[175] 
[1147] 
[175] 

[ 669] 

[1477] 
[117] 
[117] 
[3711] 

[117] 

[ 1093] 
[117] 
[3711] 

[4036] 

[1674] 

[ 10080 ; 


[2743] 

[3338] 

[ 452 ] 
[3711] 

[117] 
[2209] 


Listing Video 


260 
2 70 


[117] 

[3711] 


280 MODE 1 :BORDER 13:INK 0,0:INK 1,0:INK 2 [5864] 
,0:INK 3,0:bunt$="Videofi1m - Verzeichnis" 

:ton$=CHR$(7) 

290 LOCATE 2,9:FOR position=l TO 23:farbe= [2759] 


f art 

ie+ 1 : 

IF färbe 

i > 3 THEN 

fa rbe= 1 



300 

PEN 

färbe:LOCATE 8 + position , 2:PRINT MI 

[4495] 

D${bunt$ 

,positic 

in , 1 ) 




310 

NEXT 

positic 

in : bunt$ = 

11 " : f arbe = 0 : 

PEN 1 

[1877] 

320 

LOCATE 1,5 




[623 ] 

330 

PEN 

2:PRINT: 

PRINT " 

F i 1 me 

ausd ru 

[2675] 

cker 

1 . . . . 

. ( 1 ) " 





340 

PEN 

3:PRINT: 

PRINT" 

F i 1 me 

)be rsp 

[2900] 

i e 1 e 

in . . . 

. (2)" 





350 

PEN 

2:PRINT: 

PRINT" 

F i 1 me 

anh{ng 

[3500] 

en . . 


. (3)" 





360 

PEN 

3:PRINT: 

PRINT" 

Filme 

editie 

[2662 ] 

ren . 


. (4)" 





370 

PEN 

2:PRINT: 

PRINT" 

V i deo: 

s anmel 

[3252] 

den . 


. (5) 





380 

PEN 

3:PRINT: 

PRINT" 

Prog r. 

amm bee 

[4089] 

nden. . . . 

. (0)":PEN 1 




390 

PRINT:PRINT: 

PRINT” 

Bi 

tte W{h 

[2582] 

1 en 

Sie . 






400 

PRINT:PRINT 




[ 743 ] 

410 

LOCA 

TE 13,24 

:POKE &B28F,124:PRII 

NT"von 

[15125] 


Marc Ro'kopf":POKE 8.B28F , 240 : LOCATE 1,1:MO 

VE 100,70:DRAW 540,70, 1 :DRAW 540,350:DRAW 

100,350:DRAW 100,70:MOVE 102,72:DRAW 538,7 

2,3:DRAW 538,348:DRAW 102,348:DRAW 102,72 

420 MOVE 98,68:DRAW 542,68,2:DRAW 542,352: 

DRAW 98,352:DRAW 98,68 

430 INK 1,9:INK 2,5:INK 3,7:M0VE 0,0 

440 a$=INKEY$:IF a$="" THEN GOTO 440 

450 IF a$="0" THEN ENV 1,1,13,1,13,-1,5:SO 

UND 130,50,0,0,1:G0T0 1280 

460 IF a$ ="-" OR a$=" . " OR a$="8." THEN PRI 
NT ton$;:GOTO 440 

470 wahl=VAL(a$):IF wahl<l OR wah1>5 THEN 
PRINT ton$;:GOTO 440 

480 BORDER 1:INK 1,13:ENV 1,1,13,1,13,-1,5 
:SOUND 130,50,0,0,1:ON wähl GOTO 970,680,2 
530,2110,540 

49 0 1 - 


500 

510 

520 

530 


Filme AnmeIden 


[2567] 

[1609] 
[1737] 
[2269] 

[3327] 

[4151] 

[6596] 

[3711] 

[117] 

[1575] 

[117] 

[3711] 


540 MODE 2:PRINT:PRINT" - Filme Anmelden [8403] 


550 PRINT:PRI 
Kassetten ha 
T" - ",neucas 
560 PRINT:PRI 
hlineucas:IF 
INT" Das sind 
sch!pft ! (Ma 
RINT:PRINT" < 
h1=m:GOTO 280 
80 

570 IF neucas 
neuen Kassett 
":PRINT:PRINT 
T:PRINT" Die 
Numme r:":PRI 


Listing Video 


-" : WI NDOWttO ,1,80,3,25 

NT:PRINT:PRINT" Wieviele neue [6688] 
ben sie gekauft: ":PRINT:INPU 

NT:m=filmzahl:filmzahl=filmza [18352] 
neucas>maxcas-m THEN PRINT:PR 
zuviele. Der Speicher ist er 
ximum sind"maxcas" Videos)":P 
< ENTER >>":GOSUB 2980:filmza 
ELSE IF neucasd THEN GOTO 2 

>1 THEN CLS:PRINT:PRINT" Die [12543] 
en erhalten folgende Nummern: 

m+1"-"m+neucas ELSE CLS:PRIN 
neue Kassette erh{lt folgende 
NT:PRINT m+1 


6’89 PC 61 










































|— Programm 


580 PRINT:PRINT" << ENTER >>" :PR I NT:GOSUB [3427] 
2980:CLS 

590 FOR nr=m+l TO m+neucas:PRINT:PRINT" We [7564] 
lche Kapazität hat die Videokassette mit d 
e r Numme r";n r 

600 LOCATE 7,5:PRINT"min":LOCATE 2,5:INPUT [6025] 
" " , ES:E = VAL(E$) : IF E<1 OR E>240 THEN fil 
mzahl=m:m=0:GOTO 280 ELSE video${nr , 5 ) = E$: 
m=m+ 1 

610 video$<nr,1)="frei":Video$(nr,2)=" " [4989] 

:video$(nr,3) = "-":video$(nr,4)="- 

CLS:NEXT nr 

620 CLS:PRINT:PRINT" Die neuen Videokasset [6806] 
ten sind nun angemeldet. ";PR I NT:PR I NT' << 

ENTER > >“:GOSUB 2980:m=0:GOTO 280 


630 •-- [3711] 


640 ' [117] 

650 ' Filme Iberspielen [1533] 

660 ' [117] 

670 '- [3711] 


680 MODE 2:PRINT:PRINT" - Filme Iberspie [7092] 

1 en - 

-" ; WIN DOW# 0.1,80,3,25 

690 CLS:PRINT:PRINT:PRINT:PRINT" Welchen F [7257] 
ilm haben sie }berspielt: PRINT:INPUT" - 

" , in$:G0SU8 3570:CLS 

700 GOSUB 3750 [ 1035] 

710 IF video$(nr,1}<>”frei" THEN PRINT:PRI [16627] 
NT" Soll der Fi1mnrsp=1:GOSUB 3060: 

PRINT a$:PR I NT " "+CHR$(24)+ "+video$(nr, 

1)+" "+CHR$(24):sp=l:G0SUB 3070:PRINT a$:P 

RINT" ge 1 | seht werden ? ( J/N GOSUB 1960 

:FOR r=1 TO 4:video$(nr,r ) = "• ":NEXT r:CLS 

720 PRINT:PRINT" Geben Sie nun den neuen F [11829] 

ilm ”; :PRINT USING"###";nr;:PRINT" ein:":I 

F video$(nr,1) = "fre 1 THEN LOCATE 38,2:PRI 

NT". (Dieser Film war als 'frei' markiert) 

730 LOCATE 15,4:PRINT STR ING$(1 (1 LO [7149] 

CATE 1,4:LINE INPUT" Filmtitel : ".videcS 
(nr,l) :IF video$(nr, 1) = " " THEN GOTO 2870 
740 IF LEN(video$(nr, 1))>1 (1) THEN LOCATE [ 7504 ] 
80,4:PRINT" ";:LOCATE 1,5:PRINT SPACE$(80) 

; :LOCAT E 1,1:PRINT ton$;:GOTO 730 

750 1=LEN(video$(nr,1)):LOCATE 15+1,4:PRIN [2377] 

T SPACES(1(1)-l> 

760 PRINT:LOCAT E 15,6:PRINT STRING$( 1 (2) . " [10172] 
," ) :LOCATE 29,6:PRINT" min":LOCATE 1,6 

:LIN E INPUT" F11ml{nge : ".video$(nr , 2 ) : I 

F video$(nr,2)="" THEN video$(nr,2 ) = "- 

LOCATE 15.6:PR I NT"-" 

770 IF LEN(video$(nr,2))>1(2) THEN PRINT t [5288] 
on$;:LOCATE 33,6:PRINT SPACES(46):GOTO 760 

780 1=LEN(video$(nr,2)):LOCATE 15+1,6:PRIN [6333] 

T 5PACE$(1 (2 )-l+4) :LOCATE 1 5 -t-1 + 1 , 6 : PR IN T "m 
i n 

790 LOCATE 15,8:PR1NT STRINGS(1<3LO [13056] 
CATE 1,8 : LIN E INPUT" Darsteller : “,video$ 

(n r , 3) :IF videoStnr,3) = ”" THEN video$(nr 

.3) = "-":LOCATE 15,8;PRINT"-" ELSE IF 

LEN(video$(nr,3))>1(3) THEN PRINT ton$;:L 
OCATE 28,8:PR I NT SPACES(52);:GOTO 790 
800 l=LEN(video$(nr,3)):LOCATE 15+1,8:PRIN [3819] 

T SPACES(1 (3 >-1 ) 


810 LOCATE 15,10:PRINT STRING$(1(4), ,"):L [8273] 

OCATE 1,10:LI NE INPUT" Genre ,vide 

o$(nr,4):IF video$(nr,4)="" THEN video$(nr 
,4)=“Spielfilm":LOCATE 15,10:PRINT"Spielfi 
1 m" 

820 1=LEN(video${nr,4)) [1699] 

830 IF 1>1(4) THEN PRINT CHRS(7);:LOCATE 3 [3866] 
2, 10;PR I NT SPACE$(40) ; :GOTO 810 

840 LOCATE 15 + 1 , 10:PRINT SPACES(1 (4 )-1 ) [ 2089 ] 

850 LOCATE 1,12:PRINT" Kapazitft : E ";vi [2467] 
deo$(n r,5) 

860 LOCATE 1,15:PRINT" << ENTER >> [1882] 

870 a$=INKEYS:IF a$="" THEN 870 [1266] 

880 a$=UPPER$(a$) [533] 

890 IF a$=CHR$(13) THEN GOTO 280 [1249] 

900 IF a$="W" THEN nr=nr+l:IF nr>fiImzahl [4337] 
THEN GOTO 280 ELSE CLS:GOTO 710 

910 PRINT ton$; :GOT0 870 [ 65 7 ] 
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920 '- [3711] 


930 ' [117] 

940 ' Filme ausdrucken [1480] 

950 ' [117] 

960 '- [3711] 


970 MODE 2:PRINT:PRINT" - Filme ausdruck [4963] 

en- 


980 PRINT:PRINT" Auf Drucker..(1) oder Mo [5595] 
n i to r . . (2 ) ? (0). . ]berblick (ENTER). 

Men } 

990 a$=INKEY$:IF a$="" THEN 990 [1090] 

1000 IF a$=CHR$(13) THEN GOTO 280 [1249] 

1010 IF a$="0" THEN GOTO 3270 [1234] 

1020 IF a$ =" -" OR a$="." OR THEN PR [ 3257 ] 

INT ton$;:GOTO 990 

1030 wähl=VAL(a$):IF wahl<l OR wahl>2 THEN [5119] 
PRINT ton$; :GOTO 990 

1040 online=INP(&F500):IF wahl=l THEN IF o [16220] 


n1ine=26 OR online=154 THEN GOTO 1440 ELSE 
LOCATE 1,6:PRINT" Der Drucker ist nicht 
bereit !":PRINT ton$ ; :FOR i = l TO 1000:NEXT 
:LOCATE 1,6:PRINT SPACES(40):GOTO 990 
1050 ON wähl GOTO 1440,1060 [1004] 

1060 LOCATE 1,4:PRINT SPACES(79):LOCATE 1. [9173] 

6: PR INT " ( "+CHR$(243) + ") . .Vorw{rts Bl{tt 

ern, ( "+CHR$(242 ) + '' ) . . R)ckw{rts Bl{ttern, 

(ENTER)..Men] 

1070 LOCATE 1,8:PRINT" (zusammen mit SHIF [17006] 
T gedr}ckt: Ablauf in 10'er Schritten) ":W 
INDOWBO.11,79,14,24:WINDOW#1,11,20,12,12:L 
OCATE83,1,15:PRINT#3," Titel : ":PRINT#3: 

PR I NT# 3:PRINT#3, m i t " : PR I NT # 3 : PRI NT # 3 , " L 
{nge : ":PRI NTB3:PRI NT#3," Genre : " 

1080 L0CATEB3,2,12:PRINTB3,"Video Nr." [2380] 

1090 nr=l:CLS#0:CLSB1:GOTO 1170 [2870] 

1100 a$=INKEYS:IF a$="" THEN 1100 [1460] 

1110 IF INKEY(1)=0 THEN nr=nr+l:IF nrifilm [5504] 
zahl THEN n r= 1 :SOUND 1,40,5,7:GOTO 1170 EL 
SE GOTO 1170 

1120 IF INKEY(8)=0 THEN nr=nr-l:IF nr<l TH [5967] 
EN nr=filmzahl:SOUND 1 , 40,5, 7:GOTO 1170 EL 
SE GOTO 1170 

1130 IF INKEY(1)=32 THEN nr=nr/10:nr=INT(n [7475] 
r )*10 : nr = nr+ 10 : IF nr>filmza'hl THEN nf=l:S0 
UNO 1,40,5, 7:GOTO 1170 ELSE GOTO 1170 
1140 IF INKEY(8)=32 THEN nr=nr/10:nr=INT(n [7922] 
r)* 10:nr = nr-10:IF nr = 0 THEN nr=l:GOTO 1170 
ELSE IF n r <1 THEN nr= I NT(fi 1mzah1/10)* 10: 

SOUND 1 ,40,5, 7:GOTO 1170 ELSE GOTO 1170 


1150 IF INKEY(1 8 ) =0 THEN GOTO 280 [606] 

1160 PRINT ton$;:GOTO 1100 [910] 

1170 PRINT#1.USING"###";nr [613] 

1180 CLS:sp=1:GOSUB 3060:PR1NT a$:PRINT' " [7591] 

CHR$(24)" " ;video$(nr , 1 ) ;" "CHR$(24)" ;;G 

OSUB 3070:LOCATE 1,3:PRINT a$ 

1190 LOCATE 1,5:PRINT" " + video$(nr , 3 ) [ 1965 ] 

1200 LOCATE 1,7:PRINT" " ; video$(nr , 2 ) ; " mi [ 3355 ] 

n (E" + video$(nr,5 ) + " ) " 

1210 LOCATE 1,9:PRINT" " ; video$(nr,4 ) [ 1342 ] 

1220 GOTO 1100 [351] 

1230 '- [ 3568] 


1240 ' [117] 

1250 ' Programm beenden [1545] 

1260 ' [117] 

1270 '- [ 3588] 


1280 GOSUB 3460:MODE 2:INK 1, 1 3:PRI NT:PRIN [10601] 

T" - Die Videodatei wird auf Diskette zu 

rJckgeschrieben-":W 

INDOW 1,80,3,25:G0SUB 3600 

1290 a$="Video.DAT": ]ERA,@aS [1157] 

1300 OPENOUT "VI DEO.DAT" [1124] 

1310 WRITE#9,filmzahl:FOR nr=l TO filmzahl [2085] 
1320 WRITE#9,video$(nr,1),video$(nr,2 ) ,v1d [ 4887 ] 
eo$(nr,3),video$(nr,4),video$(nr,5) 

1330 NEXT n r:CLOSEOUT [ 749 ] 

1340 MODE 1:CA L L &BC02 : PRINT:PRINT" ENDE." [2019] 

:PRINT 

1350 CLEAR:END [358] 

1360 '- [ 3588] 
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1370 ' 

[117] 


1380 ’ Filme auf Drucker ausgeben 

[2843] 


1390 ' 

[117] 


1400 *- 

[ 3588 ] 


1410 ' 

[117] 


1420 '-Drucker vorelnstel len + Jbersch 

rift d rucken- 

[2491] 


1430 ‘ 

[117] 


1440 LOCATE 1,4:PR INT" Bitte warten, der 
Drucker druckt die Videoliste aus."+SPACE$ 
(18) 

[9790] 


14 50 kuein$ = CHR$(2 7)+CHR$(52) :kuaus$=CHR$( 

[2958] 


2 7) +CHR$(53) 



1460 PRINTB8,CHR$(27) + "@"; Druck 

er zurjcksetzen 

[ 252 1 ] 


1470 PRINT#8,CHR$(27)+"xl"; 'N LQ e 

[2282] 


1480 PR I NT # 8,SPACE$(29)+CHR$(27)+"-1"+" Vi 
deofilm - Verzeichnis "+CHR$(27)+"-0" 

[5216] 


1490 PRINT#8,CHR$(27)+"x"+CHR$(0); 'NLQ a 

US 

[ 2 79 1 ) 


1500 'PRINTB8,CHR$(27)+CHR$(71);: 'Dopp 

eidruck w{hlen 

[2404] 


1510 PRINTB8,CHR$(15); 'Schma 

11 schrift w{hlen 

[2867] 


1520 PR I NT#8,5PACE$(9)+"Video Nr.:" 

[2514] 


1530 PRINT*8,CHR$(27)+ R"+CHR$(2); 'Deuts 

chen Zeichensatz wfhlen 

[3899] 


1540 PRINT#8,CHR$(27)"3"CHR$(18); 'Zeile 

nabstand 1/6 Zol1 

[3100] 


1550 ' 

[117] 


1560 '- Videos drucken - 

[ 9 76 ] 


1570 ' 

[117] 


1580 L0CATEB2.1,11:PRINT42," (Insgesamt 

sind"filmzahl"Videos auszudrucken. ) 

[6771] 


1590 seite=l:FOR nr=l TO fiImzahl:LOCATEB2 
,1,9:PR1NT#2," - Drucke gerade Video Nr." 

; :PRINT«2,USING"###";nr; :PRINT#2, ", Seite 
" ; :PRINT#2,USING"##”;seite; :PRINT#2, " ." 

[11261] 


1600 ' 

[117] 


1610 '-Kopfzeile (Video Nr + Titel) -- 

[ 2435 ] 


1620 ' 

[117] 


1630 PRINTB8,SPACE$(11);USING "#*#";nr;:PR 

I NT # 8, " ) 

[2843] 


1640 IF video$(nr,l)="frei" THEN PRINTB8.C 
HR$(18)+CHR$(27) + "xl"; :PRI NT#8, " (frei )" ; :P 
RINT#8,CHR$(27)+"x0"+CHR$(15):GOTO 1670 

[6687] 


16 50 PRINT#8,CHR$(34);kuein$;video$(n r,1); 
kuausS;CHR$(34) 

[4485] 


1660 ' 

[117] 


1670 '- neue Zeile + Darsteller - 

[ 1691] 


1680 ' 

[117] 


1690 PRINT#8,SPACE$(16); mit ";video$(nr, 
3) ; 

[2085] 


1 700 ' 

[117] 


1710 '-Zeichenabstand berechnen und da 

nn die L{nge korrekt drucken - 

[1368] 


1 720 ' 

[117] 

« 

1 730 tabs=l (3 )-LEN(video$(nr,3)) 

[1498] 


1740 PRINT#8,SPACE$(tabs); 

[1843] 


1750 PRINTB8," L{nge: ";video$(nr,2)+" 

min/E"+video$(nr,5); 

[2799] 


1 760 ' 

[117] 


1 770 '-Zeichenabstand berechnen und da 

nn den Genre korrekt drucken - 

[2617] 


1780 ' 

[117] 


1790 tabs=l (2 )-LEN(video$(nr,2)) 

[1014 ] 


1800 PRINTB8,SPACE$(tabs);" Genre: ";v 

i deo$(n r,4) 

[2597] 


1810 ' 

[117] 


1820 '- Kleiner Vorschub fuer n{chstes 

Video - 

[4388] 


1830 ’ 

[117] 


1840 PRINT#8,CHR$(27)+"J"+CHR$(18); 'Zei 

lenvorschub um 18/216 Zoll 

[3915] 


1850 GOSUB 2050:NEXT nr 

[1461 ] 


1860 ' 

[117] 


1870 '- abschliessender Seitentransport 

und R}ckkehr zum Men) - 

[4128 ] 


1880 ' 

[117] 


1890 PRINT#8,CHR$(12) 'Sei 

tenvorschub 
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Vier Super-Programme 
zum kleinen Preis. 


Die neue CPC-Spielebox enthält vier aus¬ 
gesuchte TOP-Programme der Spitzenklasse. 
Da ist für jeden das Richtige dabei! 


1. Alphajet 

Lieben Sie Abenteuer und Gefahren im Weltraum? Dann steigen 
Sie in den neuentwickelten Alphajet und erforschen die interstella¬ 
ren Sonnensysteme. Vielfältige Gefahren lauern auf Ihrer Mission. 
Erleben Sie mit Alphajet ein hochklassiges Actionspiel mit außer¬ 
gewöhnlicher Grafik und vielen tollen Effekten. 

2. Telefomania 

Man schreibt das Jahr 
1992. Das sogenannte 
Datenzeitalter hat be¬ 
gonnen. Alles kann per 
Datenübertragung von 
zu Hause aus erledigt 
werden. Das Problem: 

Einige Gebiete wurden 
bei der Vernetzung 
schlichtweg vergessen. 

Ihre Aufgabe besteht 
nun darin, als Einsatz¬ 
leiter vor Ort diese Vernetzung vorzunehmen. Verhandeln Sie also 
direkt mit den Hausbesitzern über Tarife und Anschlußmöglichkei¬ 
ten. Gutes Gespür ist hier gefragt, denn nicht jeder will auch an 
das Datennetz angeschlossen werden. Mit Telefomania erwartet 
Sie eine völlig neue Spielidee, die auch Sie begeistern wird. 

3. Kampf den Insekten 

Übernehmen Sie die Rolle eines berühmten Gärtners. Ihre Aufga¬ 
be besteht in der behutsamen Pflege des weltschönsten und mehr¬ 
fach preisgekrönten Gartens von Lord CPC. Erschwert wird dies 
durch verschiedenartige Insekten, die immer wieder an Ihren herr¬ 
lichen Pflanzen nagen und diese zerstören. Durch gezielten Ein¬ 
satz von Dünger und Sprays (ohne Treibgas) können Sie den un¬ 
liebsamen Zeitgenossen zu Leibe rücken. Ein erlebnisreiches Ge¬ 
schicklichkeitsspiel für die ganze Familie mit vielen Überraschun¬ 
gen erwartet Sie. 




4. Funbouncer 

Ihr bester Freund wurde 
vom bösen Zauberer 
entführt. Mutig und 
stark, wie Sie nun ein¬ 
mal sind, machen Sie 
sich sofort auf die Su¬ 
che nach Ihrem ver¬ 
schwundenen Kumpan. 

Als Sie das Schloß des 
Zauberers erreichen, 
werden Sie und Ihr 
Freund in einen feuer¬ 
roten Ball verwandelt. In dieser Gestalt müssen Sie nun den gehei¬ 
men Ausgang des Gewölbes finden, um den Fluch zu verlieren. 
Doch Vorsicht: Vielfältige Gefahren wie zum Beispiel scharfe Fels¬ 
kanten oder rostige Nägel machen Ihnen neben anderen Zeitge¬ 
nossen, die ebenfalls verzaubert wurden, das Leben schwer. Fun¬ 
bouncer ist ein schnelles und farbenfrohes Actionspiel mit vielen 
Levels und eigenem Bild-Construction-Set. 


Für alle CPCs nur als 3“-Diskette 
Best.-Nr.: 1012 


49,- DM (unverbindlich Preisempfehlung) 

Wenn Sie über den DMV-Bestellsevice bestellen, gilt folgendes: 
Inland: Ausland: 

Einzelpreis 49,- DM Einzelpreis 49.- DM 

zzgl. Versandkosten 3,- DM zzgl. Versandtosten 5,- DM 

Endpreis 53,- DM Endpreis 55,- DM 


Bitte benutzen Sie die Bestellkarte. / / / 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege V 

Midianvori. 
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1900 GOTO 280 [413] 

1910 '- [3553] 


1920 ' [117] 

1930 ' Standard Ja/Nein Abfrage [936] 

1940 ' [117] 

1950 '- [3553 ] 


1960 a$=INKEY$:IF a$="" THEN 1960 [1464] 

1970 IF INKEY(46)=0 THEN MODE 1:GOTO 280 [1889] 

1980 IF INKEY(4 5)=0 THEN RETURN [ 745 ] 

1990 PRINT ton$;:GOTO 1960 [802] 

2000 '- [3553] 


2010 ' [117] 

2020 ' Check ob Seite zu Ende; wenn ja dan [2312] 

n Vorschub 

2030 ' [117] 

2040 '- [ 3553] 


2050 IF n r = 24*seite AND nr<filmzahl THEN s [10981] 
eite=seite+1:FOR y=l TO 9:PRINTB8:NEXT:PRI 
NT#8,SPACES(125);"-"Seite"-":PRINTB8,SPACE 
$(9 ) + "V1deo NrPRINTB8:RETURN ELSE RETU 
RN 

2060 '- [ 3588 ] 


2310 ' 

2320 IF wah)=4 THEN x= 1 6 : 1 = 1(4):LOCATE 1,3 
:PR INT“ Alter Genre : ";video$(nr,4) :LOCAT 

E 1,4:PRINT" Neuer Genre : ";:LOCATE x,4:P 
RINT STRING$(1LOCATE x,4:LINE INPUT 
neu$:op$="der Genre":GOSUB 2380:G0TO 2130 
2330 ' 

2340 IF wah1= 5 THEN x = 2 1 : 1 = 1 (5 ) :LOCATE 1,3 
;PRINT" Alte Kapazit{t : E ";video$(nr , 5 ) ; 

min":LOCATE 1,4:PRINT" Neue Kapazit(t 
E "; :LOCAT E x,4:PRINT STRINGS( T" min 
:LOCATE x,4:LINE INPUT neu$:op$= "die Kapa 
2it{t":GOSUB 2380;GOTO 2130 
2350 ' 

2360 ' Sicherheitsabfrage; 

2370 1 

2380 GOSUB 3130:IF neu$="" OR neu$=video$( 
nr.wahl) THEN RETURN ELSE CLS:PRINT:PRINT" 
Soll ";op$;" wirklich von " 

2390 PRINT" "+STRING$(LEN(videoS(nr.wahl)) 
+2PRINT" "CHR$(24)" ";videoSlnr,wähl 

);" "CHR$(24) 

2400 PR INT;PRINT" auf" 

2410 PRINT" "+STRINGS<LEN(neu$>+2PRI 
NT" "CHR$(24)" " ; neu$ ; " "CHR$(24) 

2420 PRINT:PRINT" ge{ndert werden ? (J/N) 


2070 ' [117] 

2080 ' Film Editor [1347] 

2090 ' [117] 

2100 '- [3588] 


2110 MODE 2:PRINT:PRINT" - Film Editor - 


-•• : w I NOOWB 1 , 1,80,3,5:WIN 

DOWBO,1,80,6,25 

2120 PRINT” Welchen Film wollen Sie editie 
ren: ";PRI NT;INPUT" - ",in$:GOSUB 3570 
2130 CLS:CLSB1:PRINTBl:PRINTB1," Film ";:P 
RINTB 1 ,USING"88#";nr; ;PRINTB1,": "CHR$(24) 
" " + video$(nr, 1 ) + " "CHR$(24);LOCATE#1, 1 , 1: 
sp=l1:GOSUB 3060:PRINTBl,a$: LOCATEB1,1,3 : G 
OSUB 3070;PRINTBl,a$;PRINT:PRINT" Filmt 

itel.(1) (siehe oben)":PRINT 


2140 PRINT" Filml{nge.(2) ('"; 

video$(nr,2);" min')":PRINT 

2150 PRINT" Darsteller.(3) ('"; 

videoS(nr,3);"')":PRINT 

2160 PRINT" Genre.(4) ('"; 

videoS(nr,4);"')":PRINT 

2170 PRINT" Kapaz i t {t.(5) ('E" 

; video$(nr,5);"' )":PRINT 

2180 PRINT" _" 

2190 PRINT" "CHR$(24)" Men]. 

.(ENTER) "CHR$(24) 

2200 PRINT:PRINT;PRINT;PRINT" Bitte w(h 


len Sie den Punkt an, den Sie ablndern wo 1 
len ! " 

2210 a$=INKEYS:IF aS="" THEN 2210 

2220 IF a$="-" OR aS="." OR aS="&" THEN PR 

INT to n $; :GOTO 2210 

2230 wähl=VAL(a$):IF a$=CHR$(13) THEN GOTO 
280 

2240 IF wähl<1 OR wahl>5 THEN PRINT ton$, : 
GOTO 2210 

2250 CLS:PRINT:PRINT 

2260 IF wähl=1 THEN x= 1 5 : 1 = 1 ( 1) :LOCATE 1,3 
:PRINT" Alter Titel: video$(nr,1):LOCATE 

1,4:PRINT" Neuer Titel: ";:LOCATE x,4;PRI 
NT STRING$( 1 ,"."): LOCATE x,4:LINE INPUT ne 
u$:op$="der Fi1mtite1":GOSUB 2380:GOTO 213 
0 

2270 ' 

2280 IF wah1=2 THEN x= 1 5 : 1 = 1 (2 ) :LOCATE 1,3 
:PRINT" Alte L{nge " ;video$(nr , 2 ) ; " min" 
:LOCAT E 1,4:PRINT" Neue L{nge : ";:LOCATE 
x,4:PRI NT STRING$(1 ,"."):LOCATE x,4 LINE I 
NPUT neu$:op$="die Filml[nge (in min)":GOS 
UB 2380:GOTO 2130 
2290 ' 

2300 IF wähl =3 THEN x = 22 : 1 = 1( 3 ) ;LOCATE 1,3 
.PRINT" Alter Darsteller : ";video$(nr,3) 

:LOCAT E 1,4:PR INT" Neuer Darsteller : ";: 

LOCATE x,4:PR I NT STRING$(1 ,"."):LOCATE x,4 
:LINE INPUT neu$:op$="der Darste11er":GOSU 
B 2380:GOTO 2130 


[7140] 

[ 5859 ] 
[16172] 


[4889 ] 

[ 3031 ] 

[ 3832 ] 

[2693] 

[4385 ] 

[3305] 

[ 7283 ] 

[1550] 

[ 3301 ] 

[2950] 

[3945] 

[ 794 ] 
[15936] 


[117] 

[ 13280 ] 


[117] 

[ 13220 ] 


2430 a$=INKEY$:IF a$="" THEN 2430 
2440 a$=UPPER$(a$) 

2450 IF a$="J” THEN video$(nr,wah1 ) =neu$:R 
ETURN 

2460 IF a$="N" THEN RETURN 
2470 PRINT ton$; :GOTO 2430 

2480 '- 


2490 ' 

2500 ' Filme Anh{ngen 

2510 ' 

2520 ’- 


2530 MODE 2;PRI NT:PRINT" Film Anh{ngen 


- ; w I N DOWBO , 1,80,3,25 

2540 PRINT:PRINT:PRINT:PRINT" An welchen F 
ilm haben Sie einen zweiten (dritten..) an 
geh{ngt: ":PRINT:INPUT" - ",in$:GOSUB 3570 

2550 IF video$(nr, 1 ) ="frei" THEN PRINT:PRI 
NT ton$;:PRINT" Diese Videokassette ist fr 
ei, sie missen den Film bei 'Filme ]berspi 
eien' eingeben.":PRINT:PRINT" << EN 

TER > >“:GOSUB 2980:GOTO 280 

2560 bes(l)=LEN(video$(nr,1))+3:bes(2)=LEN 
(video$(nr,2))+l:bes(3)=LEN(video$(nr,3))+ 
1 

2570 FOR x=l TO 3:GOSUB 3200:NEXT 

2580 CLS:PR I NT:PR I NT" Welchen Film haben 

Sie an den Film " 

2590 sp = 2:GOSUB 3060:PRINT a$:PRINT" "CHR 
$(24)" " + videoS(nr,1) + " “CHR$(24) 

2600 sp= 2:GOSUB 3070:PRINT a$:PRINT" ange 
h{n g t ?" 

2610 ' 

2620 ' - Titel - 

2630 LOCATE 12,10:PRINT STRING$(1(1)-bes{1 
),"."):LOCATE 1,10:LI NE INPUT" Titel : " 

,t$:IF LEN(t$ ) >1 (1)-bes(1) THEN LOCATE 12, 
10:PRINT SPACE$(1(1)+3)+ton$;:LOCATE 78,10 
:PRI NT" " ; :LOCAT E 1,11;PRINT SPACE$(80); 

:GOTO 2630 

2640 IF t$="" THEN GOTO 280 

2650 LOCATE 12,10;PRINT t$ +SPACE$(1 ( 1 )-LEN 

(t$) ) 

2660 ' 

2670 '-L{ng e- 

2680 LOCATE 12,12:PRINT STRING$(1(2)-bes(2 
),"."):LOCATE 1,12:LINE INPUT" L{nge : " 

,1aengeS:IF LEN(1aenge$)>1<2)-bes(2) THEN 
PRINT ton$ ; :LOCAT E 7,12:PRINT SPACE$(57);: 
GOTO 2680 ELSE IF laenge$="" THEN LOCATE 1 
2,12:PR INT SPACE$(68) ; :GOTO 2680 
2690 LOCATE 1 2 +LEN( 1aengeS ) ,12:PR I NT" min" 
+SPACE$(20) 

2700 ' 

2710 ' - Darsteller - 

2720 LOCATE 12,14:PRINT STRING$(1(3)-bes(3 
),"."):LOCATE 1,14:LINE INPUT" mit 
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[ 1 1942 ] 


[117] 

[17475] 


[117] 

[1148] 

[117] 

[ 10082 ] 


[5743] 


[1406] 
[3256] 

[3081] 

[1458] 
[ 533] 
[3110] 

[1415] 

[681] 

[3526] 

[117] 

[1977] 

[117] 

[3526] 

[6053] 


[ 10863 ] 


[ 1 624 1 ] 


[4213] 


[1257] 

[2740] 

[4278] 

[ 2284 ] 

[117] 

[ 1 749 ) 

[ 12568 ] 


[311 ] 
[3002] 

[117] 

[551] 

[ 16699 ] 


[ 2603 ] 

[117] 
[1419] 
[ 8986 ] 
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, da r$ :IF LEN(dar$)>1 (3)-bes(3) THEN PRINT 
ton$;:LOCATE 7,14:PRINT SPACE$(66):GOTO 27 
20 

2730 IF da r$ ="" THEN LOCATE 12 ,1,4: PRINT SP [3040] 
ACE$(68 ) ; :GOTO 2 720 

2740 ' [117] 

2750 ‘ - Soll oder soll nicht ? - [1905] 

2760 CLS:PRINT:PRINT" Es wird folgende Ein [7387] 
tragung f)r Video Nr.";nr;"vorgenommen: 

2770 PRINT:PRINT:PRINT:PRINT" Titel : "+vi [5602] 
deo$(nr,l)+" / "+t$:PRINT 

2780 PRINT” L{nge ; " + video$(nr,2) + "/"1aen [ 4634] 

ge$" minPRINT:PRINT“ mit "+video$(nr 

,3) + "/"+da r$ 

2790 PRINT:PRINT:PRINT" Ist das richtig ? [3788] 

(J/N)” 

2800 GOSUB 1960 [851] 

2810 vldeo$(nr,1)=video$(nr,1)+" / "+t$:vi [6147] 

deo$(nr,2)=video$(nr,2)+"/"+laenge$:video$ 

(nr,3)=video$(nr,3)+"/"+dar$:GOTO 280 

2820 '- [ 3447 ] 


2830 1 [117] 

2840 ' "Film als gell seht kennzeichnen [2368] 

2850 ' [117] 

2860 '- [ 3447 ] 


2870 LOCATE 15,4:PR I NT"frei [ 15003] 

":LOCATE 2,6:PRINT"Ltnge : - mi 

n":LOCAT E 2,8:PR INT"Darste11er : -":LOC 

ATE 2,10:PRINT"Bemerkung : -":LOCAT E 

2,12:PRINT"Kapazit{t : E "+video$(nr , 5 ) 

2880 video$(nr,1)="frei":video$(nr,2)="- [6781] 

" : video$(n r , 3 ) = "-" : video$(nr , 4) = "-" 

:PRINT:PRINT:PRINT" << ENTER >>" 

2890 a$=INKEY$:IF a$="" THEN 2890 [1478] 

2900 a$=UPPER$(a$):IF a$=CHR$(13) THEN GOT [2207] 

0 280 

2910 IF a$="W“ THEN nr=nr+l:IF nr>filmzahl [4337] 
THEN GOTO 280 ELSE CLS:GOTO 710 
2920 PRINT to n$; :GOTO 2890 [ 780] 

2930 '- [ 3447] 


2940 ' [117] 

2950 ' Auf Tastendruck von (ENTER) warten [2832] 

2960 ' [117] 

2970 ‘- [ 3447 ] 


2980 a$=INKEY$:IF a$="” THEN 2980 [1484] 

2990 IF a$ < > CHR$(13) THEN PRINT ton$; :GOTO [3208] 

2980 

3000 RETURN [555] 

3010 '- [ 344 7 ] 


3020 • [117] 

3030 ' Oberen und Unteren Strich errechnen [1538] 

3040 ' [117] 

3050 '- [ 3447 ] 


3060 a$=SPACE$(sp)+STRING$(LEN(video$(nr,1 [2621] 
) )+2 ,):RETURN 

3070 a$=SPACE$(sp)+STRING$(LEN(video$(nr,l [2674] 
) ) + 2,255 ) :RETURN 

3080 '- [ 3447 ] 


3090 ’ [117] 

3100 ' Filmeditor - ]berpr)fen, ob die L{n [2404] 

ge stimmt. 

3110 ' [117] 

3120 ’- [3447] 


3130 1a=LEN(neu$):IF la>l THEN PRINT ton$: [7824] 
LOCATE 1,4:PRI NT SPACE$(80) :LOCATE 1,5:PRI 


NT SPACE$(80) ; :LOCATE 80,4:PRINT" ":ON wah 
1 GOTO 2260,2280,2300,2320,2340 

3140 RETURN [555] 

3150 '- [ 3553 ] 


3160 1 [117] 

3170 ]berpr}fen, ob noch ein Film angeh{ [3733] 
ngt werden kann. 

3180 ' [117] 

3190 ‘- [ 3553 ] 
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THALION’S WARP 

Kleines Softwarehaus / 
ganz groß! X ? 
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I~Programm 


3200 IF bes(x)>=1(x) THEN GOTO 3210 ELSE R [2597] 
ETURN 

3210 PRINT ton$:PRINT" Diese Videokassette [19098] 
nimmt bereits alle Zeichen in Anspruch, d 
ie f)r eine Kassette vorgesehen sin 

d. Um K)rzungen durchzuf } hren, bitte den F 
ILM EDITOR w{hlen !":PR I NT:PR I NT << 

ENTER > >":GOSUB 2980:GOTO 280 

3220 '- [ 3553] 


3230 

3240 

3250 

3260 


Schnei 1 }berblick f)r Ausdruck 


3270 LOCATE 1,4:PRINT SPACES<79);:LOCATE 1 
,4:PR I NT" "CHR$(24)" Schne11}berb1ick " 

CHR$(24) :LOCATE 5,3:PRINT STR ING$(18: 
WINDOW# 0,1,80,6,22:CL S# 0:LOCATE#2, 1 ,23: PRI 
NT#2," (ENTERMen} (Zwischenraumtaste). 
.Weiter" 

3280 seitensROUNDffilmzah1/15,0)-H 

3290 FOR s=0 TO seiten 

3300 FOR nr=l+s*15 TO 15+s*15 

3310 PRINT USING" ## «t " ; n r ; : PR I NT " ) ";vide 

o$(nr,1):GOSUB 3350 

3320 NEXT nr 

3330 GOSUB 3370 

3340 CLS:NEXT s 

3350 IF nr>=fiImzahl THEN LOCATE #2,1,23:P 
RINTÜ2," (ENTER)..Men}"+SPACE$(60):GOSUB 2 
980:GOTO 280 ELSE RETURN 

3360 '- Auf Tastendruck von ENTER oder 

SPACE warten - 

3370 a$=IN K EY$:IF a$="" THEN 3370 
3380 IF a$=CHR$(13) THEN GOTO 280 
3390 IF a$=" " THEN RETURN 
3400 PRINT ton$ ; :GOTO 3370 

3410 •- 


3420 
3430 
i cht 
3440 
3450 


Soll Programm beendet werden oder 


[117] 

[ 3099 ] 
[117] 

[ 3553 ] 

[14336] 


[2388] 
[1137] 
[1342] 
[2444] 

[458] 

[ 967 ] 

[ 897] 

[6847] 


[3162] 

[ 1455 ] 
[ 1249 ] 
[ 1202 ] 
[ 629 ] 

[3336] 

[117] 
[2331] 

[117] 

[3336] 

[ 348 7 ] 


3460 LOCATE 13,24:PEN 2:PR I NT"Wi rk1 iCh 
:PEN 3:PRINT" (J/N) 

3470 a$ = INKEY$:IF a$="" THEN 3470 [ 1395 ] 

3480 a$=UPPER$(a$) [533] 

3490 IF a$="N " THEN LOCATE 13,24:PEN 1:POK [8962] 
E SB28F,124:PRINT"von Marc Ro~kopf":POKE & 

B28F,240:LOCATE 1,1::GOTO 440 

3500 IF a$="J" THEN RETURN [1333] 

3510 PRINT ton$;:GOTO 3470 [681] 

3520 1 - [ 3447 ] 


3530 

3540 

3550 

3560 


Eingabe der Nummer JberprJfen 


[117] 

[1719] 

[117] 

[3447] 


3570 IF 1n$=" OR in$="." OR in$="&" THEN [2883] 
GOTO 280 

3500 IF VAL(in$)<1 OR VAL(in$)>fi1mzah1 TH [2916] 
EN GOTO 280 

3590 nr=VAL(in$):in$="RETURN [1145] 

3600 ‘- [ 3553 ] 


3610 

3620 

3630 

3640 


Diskettenstatus checken 


[117] 

[2062] 

[117] 

[3553] 


3650 OUT (&FA7E),1:FOR i=0 TO 1000:NEXT:OU [5797] 
T (&FB 7F) ,4:OUT (&FB7F) , (-PEEK(&A700 )+2 ) :s 
t=INP(&FB7F):OUT (&FA7E),0 
3660 rd = st AND 32 

3670 IF r d = 0 THEN LOCATE 1,3:PRINT ton$+" 

-> Diskette ist nicht im Laufwerk. Bitt 
e korigieren !":CALL &BB18:CLS:GOTO 3650 
3680 wp=st AND 64 

3690 IF wp= 64 THEN LOCATE 1,3:PRINT ton$+" 

-> Diskette ist schreibgesch}tzt. Bitt 
e korigieren !":CALL &BB18:CLS:GOTO 3650 


Listing Video 


[781] 

[6522] 


[319] 

[8119] 


3700 CLS:RETURN [832] 

3710 '- [ 3553] 

3720 | [117] 

3730 ' Letzten Film der Kassette 1 Ischen [ 3961 ] 

3740 • [117] 

3750 ‘-- [ 3553 ] 

3760 IF INSTR(video$(nr,1),"/")<>0 THEN GO [3934] 

TO 3770 ELSE RETURN 

3770 CLS:PRINT:PRINT" Wird die ganze Kasse [8687] 
tte Jberspielt oder nur der letzte Film ?" 

:PRINT:PRINT" ("+video$(nr,1)+")" 

3780 PRINT:PRINT:PRINT" (1) . .A11 es' :PRIN [ 5848] 
T:PRINT" (2)..Nur der letzte Film" 

3790 a$=INKEY$:IF a$="" THEN 3790 [1403] 

3800 IF a$="1" THEN CLS:RETURN [1192] 

3810 IF a $ =”2" THEN GOTO 3870 [ 1049 ] 

3820 IF a$=CHR$(13) THEN GOTO 280 [1249] 

3830 PRINT ton$;:GOTO 3790 [704] 

3840 ' [117] 

3850 ' Titel: [685] 

3860 1 [117] 

3870 FOR char=l TO LEN(video$(nr,1)) [2517] 

3880 IF MID$(video$(nr,1),char,1)="/" THEN [4124] 

trenn=char 

3890 NEXT:char=0 [827] 

3900 tite1$=LEFT$(video$(nr, 1 ),trenn-2 ) [2805] 

3910 1oesch$=RIGHT$(video$(nr,1),LEN(video [4505] 
$(nr , 1))-trenn-l):trenn = 0 

3920 ' [117] 

3930 ' L{nge : [ 557] 

3940 ' [11? j 

3950 IF INSTR(video$(nr,2) , "/") = 0 THEN 1ae [ 3605] 
nge$=video$(nr,2):GOTO 4030 

3960 FOR cha r=1 TO LEN(video$(nr,2)) [2473] 

3970 IF MID$(video$(nr,2),char,1)="/" THEN [3490] 
trenn=char 

3980 NEXT: cha r = 0 [ 827] 

3990 1aenge$=LEFT$(video$(nr,2),trenn-1):t [2001] 
renn=0 

4000 ' [117] 

4010 Darsteller: [331] 

4020 ' [117] 

4030 IF INSTR(video$(nr,3), )=0 THEN dar [ 3447] 

$=video$(nr,3):GOTO 4110 

4040 FOR char=l TO LEN(video$(nr,3)) [2477] 

4050 IF MID$(video$(nr,3) ,char , 1) = "/" THEN [2887] 
t renn=char 

4060 NEXT:cha r = 0 [ 827 ] 

40 70 dar$ = LEFT$(video$(nr,3) ,trenn-1 ) : tren [ 1 59 7 ] 
n = 0 

4080 ' [117] 

4090 ' Genre [1091] 

4100 • [117] 

4110 IF INSTR(video$(nr,4),"/")=0 THEN gen [4095] 

re$=video$(nr,4):GOTO 4170 

4120 FOR char=l TO LEN(video$(nr,4)) [2529] 

4130 IF MID$(video$(nr,4),char,1)="/" THEN [3499] 
trenn=char 

4140 NEXT:cha r = 0 [ 82 7 ] 

4150 genre$=LEFT$(video$(nr,4),trenn-1 ):tr [2349] 
enn = 0 

4160 • [117] 

4170 ' Sicherheitsabfrage : [1148] 

4180 ' [117] 

4190 CLS:PRINT:PRINT" Soll der letzte Film [10556] 

der Kassette nrPRINT:PRINT" ('" + lo 
esc h$+ 1 ) ';PRINT:PRINT" gel I seht werden ? 

(J/N)" 

4200 a$=INKEY$:IF a$="" THEN 4200 [1496] 

4210 a$=UPPER$(a$) [533] 

4220 IF a$="J" THEN 4250 [883] 

4230 IF a$="N" THEN GOSUB 4270:GOTO 280 [1205] 

4240 PRINT tOn$;:GOTO 4200 [802] 

4250 video$(nr, 1 ) = titel$:video$(nr,2) = 1aen [3814] 
ge$:video$(nr,3)=dar$;video$(nr,4)=genre$: 

GOSUB 4270 

4260 MODE 2:PR INT:PR INT"-Film Anh{ngen [ 6258] 

-•• . WINDOWÜO, 1,80,3,2 5 : GO 

TO 2580 

4270 titel:1aenge$="":dar$="":genre$=" [1924] 

" :RETURN 
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Ein Abonnement 
ist praktisch und gewährt 
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I—Hardware 



Zweitläufer 

Zweitlaufwerk zum kleinen Preis 


Obwohl die CPCs den Zenit Ihrer Entwicklung überschritten haben , gibt es 
immer wieder Überraschungen auf dem Zubehörmarkt zu vermelden. So 
bietet seit neuestem die Firma ’acw-Soft’ aus Bonn ein 5,25“-Zweitlaufwerk 
für die CPC 664/6128 an, die ja schon über ein eingebautes 3 “-Laufwerk 
mit Controller verfügen. 


Das Auspacken des Paketes wird schon 
zu einer Überraschung, das Laufwerk 
entpuppt sich als wahres Schwerge¬ 
wicht. In den Maßen von 35 cm (Tie¬ 
fe), 17 cm (Breite) und 8 cm (Höhe) 
verbirgt sich in einem Stahlblechge¬ 
häuse eingepackt das Laufwerk, sowie 
ein internes Netzteil. 

Schraubt man das Gehäuse auf und 
zieht das Oberteil ab, findet man eine 
5,25-Zoll-QuaIitätsfloppy sowie ein 
ausreichend dimensioniertes Schalt¬ 
netzteil, das die Stromversorgung für 
die Floppy übernimmt. Die Verbin¬ 
dung zum Computer wird durch ein 
farbiges Flachbandkabel hergestellt, an 
dessen Ende sich ein Floppy-Stecker 
für den Buchsenanschluß des CPC 
6128 oder der entsprechende Platinen¬ 
stecker des CPC 664 befindet. Das Ka¬ 
bel ist nach unserem Geschmack etwas 
zu kurz geraten, bei einer Länge von 66 
cm, gemessen vom Stecker (CPC 
6128) bis zur Kabeleinführung am Ge¬ 
häuse, wird so mancher CPC-Besitzer 
Anschlußprobleme haben. Das Lauf¬ 
werk selbst läuft sehr ruhig an, die Me¬ 
chanik macht ebenfalls einen ausge¬ 
sprochen stabilen Eindruck. Überhaupt 
ist die interne Verarbeitung sehr gut 


und dürfte auf längere Sicht auch star¬ 
ken Belastungen problemlos wider¬ 
stehen. 

Der Floppybus entspricht der normalen 
Shugart-Norm, damit ist das System 
vollständig kompatibel zum CPC 
6128. Einen kleinen Schwachpunkt 
fanden wir beim EIN-/AUS-Schalter, 
er liegt an der Rückseite des Gerätes 
und ist etwas schwer zugänglich. Die 
fehlende Kontroll-Leuchte mag man¬ 


chem auf Anhieb wie Nietenzählerei 
Vorkommen, hat man das Gerät aller¬ 
dings ein bißchen verdeckt auf seinem 
Arbeitsplatz aufgebaut, kann es schon 
mal Vorkommen, daß man das Aus¬ 
schalten vergißt. 

Das Laufwerk und der CPC.., 

...harmonieren sehr gut miteinander. 
Unsere Testkonfiguration bestand aus 
einem CPC 6128 mit angeschlossenem 
’acw’-Laufwerk. Die Testsoftware be¬ 
stand aus der CP/M-Systemdiskette, 
diversen Kopierprogrammen und 
Anwendungs- und Spielprogrammen. 
Eine angenehme Überraschung ist das 
leise Arbeiten der Floppy, man muß 
schon genau beim Kopieren, Formatie¬ 
ren, Laden oder Speichern zuhören, 
um etwas vom Laufwerk mitzube¬ 
kommen. 

Das Formatieren der Disketten klappt 
reibungslos, ebenso die 'normale’ Ar¬ 
beit, also laden, speichern, kopieren. 
Kopierfähige Software läßt sich, so¬ 
weit sie nicht intern auf das A:-Lauf¬ 
werk vorprogrammiert wurde, ohne 
Probleme vom B:-Laufwerk starten. 
Die Kopierprogramme (genannt seien 
hier als Beispiel Discology, Masterco- 
py oder Locksmith) erkennen die 
’acw’-Floppy anstandslos als ’An¬ 
sprechpartner’. 

Unsere Meinung: 

Die Floppy von ’acw-Soft’ ist ein gutes 
Gerät für den täglichen Gebrauch. 
Durch den niedrigen Preis ist sie als 
Zweitgerät für den CPC-Besitzer auf 
jeden Fall zu empfehlen. Die einzigen 
Schwachpunkte sind, wie schon ange¬ 
sprochen, die Größe, das Gewicht und 
der Schalter. Da die Floppy jedoch 
ziemlich robust ausgefallen ist und das 
Netzteil einiges an Reserve hat, kann 
man leicht darüber hinwegsehen. Se¬ 
hen Sie sich die ’acw’-Floppy dafür 
einmal genauer an. 


(jb) 



Abb.l: Das Laufwerk von ’acw-Soft ’ — kein Leichtgewicht . über leicht zu handhaben 
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»JOYCE-Bestellservice« 
Knüller für JOYCE-Fans 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 


303 _ 

_ Stck. 

Databox zum JOYCE SH 1 

30,- DM 

304 _ 

_ Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 2 

30,- DM 

305 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 2 

24,- DM 

306 _ 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 2 

48,- DM 

360 _ 

_ Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 3 

30,- DM 

361 _ 

_ Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 3 

24,- DM 

362 _ 

_ Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 3 

48,- DM 

367 _ 

Stck. 

Sonderheft JOYCE Nr. 4 

20,- DM 

3671 _ 

_ Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 4 

30,- DM 

3672 _ 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 4 

24,- DM 

3673 _ 

_ Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 4 

48,- DM 

215 _ 

_ Stck. 

JOYCE Programmsammlung Vol. 1 

59,- DM 

216 _ 

_ Stck. 

JOYCE Programmsammlung Vol. 2 

49,- DM 

217 _ 

_ Stck. 

JOYCE Programmsammlung Vol. 3 

69,- DM 

219 _ 

_ Stck. 

JOYCE Programmsammlung Vol. 4 

59,- DM 

220 _ 

_ Stck. 

JOYCE Programmsammlung Vol. 5 

99,- DM 

221 _ 

_ Stck. 

JOYCE Programmsammlung Vol. 6 

59,- DM 


+ Porto/Verpackung 
(Inland 3,- DM, Ausland 5.- DM) 


Gesamtbetrag 


□ Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(Bei Lieferung ins Ausland ist Nachnahme nicht möglich.) 
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Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 
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Jetzt neu bei DMV 


Das Buch zum JOYCE! 



Sprachen: 

- LOGO als Grafiker 

- komplette Befehlsübersicht 

- BASIC: Erläuterungen aller Befehle 
mit Beispielprogrammen 

- JETSAM: Generator für JETSAM- 
Verarbeitung 

- Kurzübersicht: Turbo Pascal & C 

Programmierhilfen, Interna, Tips und 
Tricks: 

- Steuercode-Tabellen für Bildschirm 
und Drucker 

- XBIOS-Routinen 

- OUTs und POKEs unter BASIC 

Hardware 

- Speichererweiterung 

- Zweitlaufwerk 

- Druckkopfreinigung 

- Bildschirminverter 

- Schnittstelle am Expansionsport 

- Sprachsynthesizer 


Aus dem Inhalt: 


Alle Besitzer eines PCW 8256/8512/9512, die 
ahnten, daß der Horizont ihres Computers weit 
über LocoScript hinausgeht, finden jetzt die 
Bestätigung: 


JOYQg 

re *' SVs,e 'n 

82 S 6 /S 5 ^'°sungen 


Platinenlayouts im Buch 


Weiterhin erhältlich: 

- doppelte Platine, geprüft 

- 3“-Diskette mit allen Dateien und Programmen 


JOYCE - mehr als ein Text 


System 

Die Autoren, in der JOYCE-Szene keine 
Unbekannten, haben auf über 300 Sei¬ 
ten alles Wissenswerte über die “ande¬ 
re Seite“ der PCWs zusammengetra¬ 
gen. Anfänger wie Profis, Anwender wie 
Programmierer finden in diesem Buch 
einen reichen Schatz an Tips und Tricks 
sowie ein unentbehrliches Nachschla¬ 
gewerk. Erstmals wird auch in einem 
Buch zum PCW ein “heißes Eisen“ aus¬ 
führlich behandelt: die Hardware. Die¬ 
ses Kapitel zeigt völlig neue Möglichkei¬ 
ten des JOYCE - so wird beispielswei¬ 
se der Anschluß eines Sprachsynthese 
zers und der Selbstbau einer Schnitt¬ 
stelle besprochen. 

Ausführliche Kapitel über BASIC und 
LOGO erlauben Ihnen, diese Sprachen 
auszureizen: Anfänger, die sich erst¬ 
mals in der Programmierung versuchen 
wollen, finden durch sinnvolle kurze Bei¬ 
spielprogramme wertvolle Unterstüt¬ 
zung. Ein besonderes “Schmankerl“ ist 
das große Extra-Kapitel zur 
Dateiverwaltung! 


Bestellkarte im Buch 


JOYCE - mehr als ein Text¬ 
system 

Bestellnummer: 404 

324 Seiten mit farbigen Abbildungen 

Hardcover, gebunden 
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Wordstar wird “getuned“ 

Eine professionelle Erweiterung 
nicht nur für Freaks 


Hersteller: Michael K. Georgi, 
ex-Wordstar-Programmierer 
Vertrieb: Kotulla und Fachhandel 
Programm: Maschinensprache-Erwei¬ 
terung zu Wordstar (TM) 

Preis: DM 49,80 

CPC mit mindestens 123 K K 
JOYCE Kl JOYCE Plus Kl 

WS-TUNER ist eine Erweiterung für 
das bekannte Textprogramm Word¬ 
star, die diesem eine Vielzahl zusätzli¬ 
cher Fähigkeiten verleiht. Das Pro¬ 
gramm “lief“ bisher in der CP/M-Rei- 
he des Heise-Verlags und wird nun - 
nach etwa 80%iger Preisreduzierung 
— von Martin Kotulla vertrieben. 

Installation 

Die WS-TUNER-Funktionen werden 
durch ein mitgeliefertes Installations¬ 
programm in einen vorhandenen 
Wordstar eingebunden. Neben dem 
Handbuch finden Sie auf der Diskette 
noch eine READ.ME-Datei, welche 
Sie sich unbedingt ansehen sollten. In 
ihr steht noch einmal ganz kurz, wie 
Sie bei der Installation vorgehen soll¬ 
ten, um nicht bei eventuell auftreten¬ 
dem Platzmangel auf der Diskette 
Schwierigkeiten zu bekommen. 


Nach dem Patchen, dem Einbinden der 
Wordstar-Erweiterung, können Sie die 
zur Verfügung stehenden Funktionen 
wie normale Wordstar-Funktionen 
über Control-Codes bedienen. Eine 
eingebaute Hilfsstufe ermöglicht dane¬ 
ben die Bedienung sämtlicher Erweite¬ 
rungsfunktionen über ein ausgefeiltes 
Menüsystem. 

Leistungsumfang 

Mit WS-TUNER stehen dem Benutzer 
so viele zusätzliche Funktionen in 
Wordstar zur Verfügung, daß es auf 
den ersten Blick schwerfällt, sie zu 
überschauen. Sie finden hier je eine 
komplette Textbaustein- und Befehls¬ 
makroverwaltung, Funktionen zum 
Drucken von Textteilen und zum Be¬ 
trachten anderer Texte direkt aus dem 
gerade bearbeiteten Text heraus und 
zusätzliche Editierfunktionen und 
Tipphilfen bis hin zu einem umfangrei¬ 
chen Phrasenspeicher. Darüber hinaus 
gibt es eine Reihe von nützlichen Spe¬ 
zialfunktionen, einen Bildschirmscho¬ 
ner (manuell einzuschalten) und ein 
ganzes Sortiment von übersichtlichen 
Hilfsbildschirmen, die jederzeit — so¬ 
gar mitten in der Eingabe eines Befehls 
— verfügbar sind und von denen stets 
derjenige zuerst erscheint, der der Si¬ 


tuation am besten entspricht. Das Gan¬ 
ze wird mit einer 42seitigen, sehr or¬ 
dentlich gedruckten und verständlich 
geschriebenen Anleitung in DIN-A5- 
Format geliefert. 

Der Tuner bleibt im Schatten 

Beim Programmstart bemerken Sie 
WS-TUNER zunächst überhaupt nicht, 
lediglich die Informationszeile ist um 
die Meldung “WS-TUNER“ erweitert, 
und für das Disketten-Inhaltsverzeich- 
nis kann man nun ohne Wechsel des 
Bezugslaufwerks ein beliebiges Lauf¬ 
werk und eine Dateimaske angeben. 
Richtig aktiv werden die Erweiterungs¬ 
funktionen erst, wenn Sie sie durch 
Drücken einer bestimmten Taste (nor¬ 
malerweise Control- \) aufrufen.Kon¬ 
sequent nach den Funktionsprinzipien 
aufgebaut, die allgemein intern in 
Wordstar gelten, fügen sie sich so per¬ 
fekt in Wordstar ein, daß Sie schon 
nach einigen Stunden Arbeit damit 
glauben, sie seien schon immer dage¬ 
wesen. Wie andere Wordstar-Funktio¬ 
nen auch befinden sich WS-TU¬ 
NER-Funktionen in mehreren Over¬ 
lays, die bei Bedarf mit der von Word¬ 
star gewohnten Geschwindigkeit 
nachgeladen werden. 

Ein doppelter Druck auf die “WS-TU- 
NER-Taste“, welche im Installations¬ 
programm frei wählbar ist, holt das so¬ 
genannte Komfortmenü hervor, dessen 
Name durchaus gerechtfertigt ist. Es 
entspricht etwa dem Dateiverwaltungs- 
Menü von LocoScript, ist aber um vie¬ 
les leistungsfähiger. 

Was kann WS-Tuner 

Der volle Leistungsumfang von WS- 
TUNER zeigt sich in der Textbearbei¬ 
tung, oft gerade in Form der vielen 
eher unscheinbaren kleinen Hilfsfunk¬ 
tionen, die der anspruchsvollere Word- 
star-Bcnutzer bisher missen mußte. So 
können Sie sich alle Steuerzeichen im 
Text invers anzeigen lassen, Text sehr 
flexibel automatisch sperren oder die 
Leertaste vorübergehend mit dem Un¬ 
terstrich belegen und so den Mangel 
überwinden, daß Wordstar beim 
Drucken nur sichtbare Zeichen (keine 
Leerzeichen) unterstreicht; Sie können 
überprüfen lassen, ob alle Drucker¬ 
steuerzeichen im Text paarig sind, eine 
UNDO-Funktion rettet im Text verse¬ 
hentlich gelöschte Zeilen oder Blöcke, 
zur Vermeidung des gefürchteten Dis¬ 
kettenüberlaufs können Sie sich jeder¬ 
zeit die freie Kapazität und die aktuelle 
Textgröße anzeigen lassen. 



Befehlsübersicht WS-TUNER 1.6 


laste 

0 TSC [Taste 
0 TSC ESC | 
M laste 
N 


iegritl emiesen 
Begriff anzeigen 
Innältsverzeichnis 
Begriff abspeichern 
lilfsfunktionen 





jilier ;; • Befehls!olge starten 
B Ziffer , , Befehlsfolge speichern 

L !; 1 Befehlsfolge wiederholen 

B ■ ■; : 1 Hilf sfunkt Ionen 

B P I 11 rvi 1 1 mmrirrn üh— i 

C Ziffer Auf beite x springen 

U jj Uorherige Seite 

F i; F olgend e Seite 

'1'lKl!^ 1 

A Ziffer Baustein abspeichern 

I i Inhalt/Losch/Zeig/Druck 


. siehe flenu 

(lorpro grannierter WordStar-Druck 

M 




archivieren, Laden 
Text-/Bausteindatei betrachten 
Einstellungen ändern 
Hilf sprogranne 

BiIdschirnanzeige ausschalten 
Ungeubten-Menü 

Hilfen für die Textbearbeitung 
Aktuelles Wort in Suchfunktion 
Datun in Wortforn Ubernehnen 
Datun in Zahlenforn ubernehnen 
Aktuellen Date inanen ubernehnen 
Hilfsschirne nit Erläuterungen 
Konfortnenü (auch in Hauptnenü) 
Dateischnittstelle für dBASE II 
(optional erhältlich) 


-- Weiter nit RETURN, Ende nit Leertaste, Hauptschirn nit ? oder Buchstabe — 


Bild l: Eine der vielen Hilfsseilen, die der Wordstar-Tuner zur Verfilmung stellt 
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Floskeln und Phrasen 

Häufig wiederkehrende Wörter und 
Floskeln lassen sich in einem internen 
Phrasenspeicher oder auf Diskette als 
Textbausteine ablegen; zur Verwal¬ 
tung dieser “Bauteile“ steht jeweils ein 
kompletter Satz Verwaltungsfunktio¬ 
nen zur Verfügung, wobei alle kompli¬ 
zierteren Operationen stets mit Menü¬ 
hilfe ablaufen. Im Phrasenspeicher las¬ 
sen sich auf jeder Buchstabentaste 
Phrasen in bis zu 30 Ebenen ablegen 
und recht schnell in den Text einfügen. 
Die Textbausteinverwaltung arbeitet 
langsamer, erlaubt dafür aber Baustei¬ 
ne bis zur Größe kompletter zweiseiti¬ 
ger Texte. Selbstverständlich läßt sich 
auch der Inhalt des Phrasenspeichers 
auf Diskette ablegen und von Diskette 
laden. WS-TUNER erlaubt dabei die 
Auswahl beliebiger Dateien und ver¬ 
sorgt den Benutzer rundum mit Erinne¬ 
rungsmeldungen und Sicherheitsabfra¬ 
gen, wenn der Speicherinhalt gesichert 
werden muß oder bereits vorhandene 
Informationen überschrieben werden 
sollen. 

Makros 

Ein Leckerbissen für fortgeschrittene 
Wordstar-Benutzer ist die in WS-TU¬ 
NER eingebaute Macrofähigkeit, die 
Wordstar zu einem programmierbaren 
Editor macht. Bis zu 61 Tastendrücke 
lange benutzerdefinierte Befehlsfolgen 
lassen sich auf den Zifferntasten able¬ 
gen und automatisch ausführen. Mit 
diesen Macros lassen sich Aufgaben, 
die bei manueller Ausführung viel 
Mühe machen, mit wenig Aufwand 
programmieren und automatisch lösen. 
Der Autor dieser Besprechung verwen¬ 
det zum Beispiel gelegentlich ein kaum 
30 Zeichen langes selbstgeschriebenes 
Macro, das sämtliche Überschriften in 
einem Text zusammensucht, kopiert 
und an beliebiger Stelle zu einem In¬ 
haltsverzeichnis zusammenstellt. 

Leider umfaßt die Macrofähigkeit von 
WS-TUNER keinen echten Macrore- 
corder, mit dessen Hilfe die Aktionen 
des Benutzers bei der Textbearbeitung 
einfach mitprotokolliert und dann be¬ 
liebig oft wiederholt werden könnten, 
sondern Sie müssen seine Macros 
selbst im Text wörtlich hinschreiben 
und der Macro Verwaltung als Text¬ 
block übergeben. Beim Ausführen der 
Macros bleibt die Bildschirmausgabe 
angeschaltet, so daß Wordstar zwar 
durchaus geschwindigkeitsoptimiert 


und vor allem für den Benutzer beque¬ 
mer läuft als bei manueller Bedienung, 
aber doch gebremst durch die bild¬ 
schirmorientiert ablaufenden Einzel¬ 
funktionen. 

Nachteile 

Auch einige andere Funktionen haben 
Schwächen: UNDO arbeitet mit einer 
maximalen Puffergröße von ca. 1/2 
kByte und macht leider auch keine Än¬ 
derungen innerhalb einer Zeile rück¬ 
gängig. “Text nachträglich sperren“ 
und “Groß/Kleinschreibung wandeln“ 
sind sehr langsam, durch Voraustippen 
nicht zu beschleunigen, da dann ein¬ 
fach Zeichen “übersehen“ werden, und 
“Steuerzeichen auf Paarigkeit überprü¬ 
fen“ enttäuscht dadurch, daß nur eine 
Art von Steuerzeichen auf einmal ge¬ 
prüft wird. 

WS-TUNER ist jedoch leistungsfähig 
genug, um an solchen Stellen eher den 
Einfallsreichtum des Benutzers heraus¬ 
zufordern, mit dem sich die meisten 
Schwächen neutralisieren lassen: zum 
Beispiel könnte man die Prüfung ver¬ 
schiedener Steuerzeichen in einem 
Macro zusammenfassen und die Funk¬ 
tion “anderen Text betrachten“ die 
letzte Zwischensicherung des aktuellen 
Textes anzeigen lassen, wobei alle her¬ 
vorgehobenen Textstellen invers dar¬ 
gestellt werden können. An anderer 
Stelle schließt WS-TUNER selbst typi¬ 
sche Lücken in Wordstar. So zerstörte 
bislang der Versuch, nach einem Con- 
trol-A zu suchen, den Text. Diesen 
Fehler hat jedoch die Suchfunktion 
nicht. 

Ein ausgereiftes Konzept 

Insgesamt erscheinen die angeführten 
Kritikpunkte nur als kleine Schwächen 
in einem sehr guten und ausgereiften 
Konzept. Auch wo die vorhandenen 
Funktionen nicht alle Wünsche erfül¬ 
len, sind sie durchaus einsetzbar und in 
dem vorhandenen Umfang offensicht¬ 
lich gut ausprogrammiert. Uns sind 
überhaupt nur zwei echte Fehler in 
WS-TUNER bekannt, die sich jedoch 
durch ein wenig Vorsicht bei der Be¬ 
dienung leicht umgehen lassen: Man 
sollte niemals versuchen, die Funktion 
“Suche Seite Nummer...“ voraustip¬ 
pend mit Control-L zu mischen oder 
auf eine Frage des Systems “Wieder¬ 
holen, Ignorieren, Abbrechen?“ mit 
“ A“ antworten. Beides ist für den gera¬ 
de bearbeiteten Text fatal, läßt sich 


aber auch leicht vermeiden (und wurde 
vielleicht gerade deshalb noch nicht er¬ 
kannt und beseitigt). 

Die Benutzerführung tut das ihre dazu, 
daß man sich in WS-TUNER wohl¬ 
fühlt; die Arbeit, die hier vom Pro¬ 
grammierer investiert wurde, trägt 
beim Anwender noch nach monatelan¬ 
ger Benutzung ihre Früchte. Was die 
Menüs angeht, empfiehlt es sich frei¬ 
lich, hierbei die dem eigenen Erfah¬ 
rungsstand angemessene Hilfsstufe zu 
wählen, damit die Benutzerhilfen ei¬ 
nem wirklich helfen (und nicht 
nerven). 

Das Handbuch 

Das Handbuch bietet eine umfassende 
Übersicht über die Fähigkeiten von 
WS-TUNER, wobei allerdings für den 
Fortgeschrittenen wichtige Einzelhei¬ 
ten - Randbedingungen und Ausnah¬ 
men - zuweilen im Text untergehen, 
so daß man sie sich herausschreiben 
müßte, um sie später nicht vergeblich 
zu suchen. Im übrigen lohnt es sich, 
das Handbuch mit wachsender Gewöh¬ 
nung an WS-TUNER öfters wieder 
einmal zu lesen, um die Feinheiten des 
Programms zu entdecken und auszu¬ 
schöpfen. Für den Alltagsbetrieb 
kommt man indes bald in fast allen Fäl¬ 
len allein mit den Hilfsbildschirmen 
zurecht. 

Fazit 

WS-TUNER ist ein hervorragendes 
und ein für seine Leistung sehr preis¬ 
wertes Programm für den anspruchs¬ 
vollen Wordstar-Benutzer, wenn auch 
durch seine Größe für den ernsthaften 
Einsatz eingeschränkt auf Anwender 
mit gut ausgebautem und womöglich 
geschickt konfiguriertem System. Für 
diese Zielgruppe bringt er aber auch 
die deutlichsten Vorteile. 

(Christian Frederking/rs) 
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Zwei ungleiche Brüder? 

Mallard-Basic auf dem CPC 

Obwohl Kinder der gleichen Mutter AMSTRAD, scheinen JOYCE und 
CPC auf den ersten Blick nur wenige Gemeinsamkeiten zu haben. Daß die¬ 
ser erste Eindruck nicht stimmt, soll im folgenden Artikel aufgezeigt wer¬ 
den. Insbesondere für Besitzer und Besitzerinnen beider Rechnermodelle 
werden darin Hinweise gegeben, die einen Programmaustausch zwischen 
CPC und JOYCE erleichtern. Darüber hinaus werden in dem vorgestellten 
BASIC-Programm einige Programmiertips gegeben, die zeigen, wie man 
mit einfachen Mitteln eine optisch ansprechendere Bildschirmgestaltung er¬ 
reichen kann. 


Das kommt ja in den besten Familien 
vor: Während die ersten drei Brüder 
ihre Verwandtschaft nicht verleugnen 
können, fällt der vierte Nachkomme 
ganz aus der Art. Gemeint sind hier die 
älteren Sprößlinge der AMSTRAD-Fa- 
milie: die drei gleichartigen CPCs und 
der nicht so recht in die Familie passen¬ 
de JOYCE PCW. Obwohl - will man 
bei der Familien-Analogie bleiben — 
es sich bei diesen vieren gewisserma¬ 
ßen noch um Kinder aus erster Ehe 
handelt. 

Bei den ganz jungen Zöglingen der 
AMSTRAD-Familie — den PCs - 
muß man wohl von einer neuen Gene¬ 
ration sprechen, die ja am liebsten ihre 
Verwandtschaft mit den CP/M-Ge- 
schwistem verleugnen möchte. Nicht 
selten wird da hochnäsig auf die lang¬ 
sameren und betagten 8-Biter herabge¬ 
schaut, ohne zu bedenken, wie viele 


Betriebsstunden diese mittlerweile auf 
dem Buckel haben. Doch genug der 
Mutmaßungen über Geschwisterliebe 
unter den Computerfans. Der Auslöser 
zu diesem Artikel war der Wunsch der 
PC-Redaktion nach einem BASIC- 
Konvertierprogramm. Dieses sollte in 
der Lage sein, CPC-BASIC-Program- 
me für den JOYCE lauffähig zu ma¬ 
chen. Der Wunsch ist verständlich und 
kommt aus den Reihen der vielen JOY- 
CE-Besitzer/innen, die das reichhalti¬ 
ge Programmangebot der CPC-Com- 
puter gerne nutzen möchten. 

Jeder, der ein wenig über den eigenen 
Teller(Computer)-Rand hinausge¬ 
schaut hat, weiß, wie schwierig - 
wenn nicht gar unmöglich - ein sol¬ 
ches Unterfangen ist. Pragmatisch lie¬ 
ße es sich auch so sagen: Wenn das 
Problem so einfach zu lösen wäre, gäbe 
es sicher ein derartiges Programm 


schon lange auf dem Software-Markt. 
Denn zwei verschiedene Computer mit 
zwei unterschiedlichen Bildschirmgrö¬ 
ßen, mit zwei grundverschiedenen Be¬ 
fehlssätzen und von so unterschiedli¬ 
cher Konzeption (der eine für Grafik 
und Sound, der andere für die Textver¬ 
arbeitung ausgelegt), dies alles ist si¬ 
cher nicht unter einen (Programm-)Hut 
zu bringen. 

“Politische“ Systeme 

Möglicherweise kann uns die Politik 
bei der Lösung unseres Problems wei¬ 
terhelfen. Auch hier verhindern ja un¬ 
terschiedliche 'politische’ Systeme zu¬ 
nächst einmal jede Art der Zusammen¬ 
arbeit beziehungsweise jeden Aus¬ 
tausch von Informationen. Die hohe 
Kunst der Diplomatie besteht nun dar¬ 
in, zunächst Gemeinsamkeiten auf ei¬ 
nigen Teilgebieten festzustellen oder 
gegebenenfalls herbeizuführen. Je grö¬ 
ßer die Anzahl der Gemeinsamkeiten, 
desto besser die spätere Zusammenar¬ 
beit. Merke: Schon die Übereinstim¬ 
mung auf einem einzigen Teilgebiet 
läßt einen -wenn auch beschränkten 
— politischen Datenaustausch zu. 
Wenn dies auf dem schwierigen Par¬ 
kett der politischen Systeme funktio¬ 
niert, so läßt sich dies sicherlich auch 
auf die meist noch klarer definierten 
Computersysteme übertragen. Die 
Frage lautet also zunächst: Wo liegen 
die Gemeinsamkeiten von CPC6128 
und JOYCE? Denn schon beim Ein¬ 
schalten verhalten sich beide doch so 
unterschiedlich. Während der CPC so¬ 
fort betriebsbereit ist, muß der JOYCE 
sein Betriebssystem zunächst von der 
Diskette laden. Das liegt daran, daß 
beim CPC das BASIC bereits fest im 
ROM implementiert ist, während der 
JOYCE alle Programme — also auch 
sein BASIC -als CP/M-File von der 
Diskette laden muß. Genau genommen 
besitzt der JOYCE natürlich auch ein 
eingebautes ROM-Grundprogramm, 
den sogenannten Urlader, der das Star¬ 
ten des Rechners und das Laden der er¬ 
sten Diskette ermöglicht. 

Doch zurück zum Austausch der BA- 
SlC-Programme. Denkbar wäre ja 
durchaus ein CP/M-File für den JOY¬ 
CE, das alle Funktionen des AMS- 
DOS-BASIC-Interpreters beinhaltet. 
Denkbar ist diese Lösung zwar, prak¬ 
tisch wäre sie jedoch mit erheblichen 
Entwicklungskosten verbunden. Eben¬ 
so kann ein Kopieren des ROM-Inhal- 
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Kommando Adresse Inhalt Zeichen 


Tastatur 


Cu rso r nach links 

0D85 

- 

0D88 

01 

01 

00 

00 

Ctrl-A 

Cursor nach rechts 

0D89 

- 

0D8C 

01 

06 

00 

00 

Ctrl-F 

Cursor nach oben 

0D8D 

- 

0090 

01 

1 F 

00 

00 

Ctrl 

Cursor nach unten 

0D91 

- 

0D9 4 

01 

IE 

00 

00 

Ctrl-' 

Zeichen suchen 

0D95 

- 

0D9 8 

01 

10 

00 

00 

Ctrl-Ü 

DEL rechts 

0D99 

- 

0 D9C 

01 

07 

00 

00 

Ctrl-G 

DEL links 

0D9D 

- 

0 DAO 

01 

7F 

00 

00 

DEL 

Löschen bis Zeichen 

ODA 1 

- 

0 DA4 

01 

15 

00 

00 

Ctrl-U 

Einfügen/Überschreiben 

0DA5 

- 

0DA8 

01 

16 

00 

00 

Ctrl-V 

Editieren abbrechen 

0DA9 

- 

ODAC 

01 

03 

00 

00 

Ctrl-C 

Editieren beenden 

ODAD 

- 

ODBO 

01 

OD 

00 

00 

Ctrl-M 


Bi 1dsch i rm 











Cursor nach links 

0 E 2 F 

- 0 E 3 4 

02 

1B 

44 

00 

00 

00 

ESC 

D 

Cursor nach rechts 

0 E 3 5 

- 0 E 3 A 

02 

1B 

43 

00 

00 

00 

ESC 

C 

Cursor nach oben 

0E3B 

- 0 E 40 

02 

1B 

41 

00 

00 

00 

ESC 

A 

Cursor nach unten 

0E4 1 

- 0 E 4 6 

02 

1B 

42 

00 

00 

00 

ESC 

B 

zur nächsten Zeile 

OE 4 7 

- 0E4C 

02 

OD 

OA 

00 

00 

00 

CR 1 

-F 


Bildschirmdaten 



Adresse 

90 ZeichentJOYCE) 

80 Zeichen(CPC) 

811dschirmzeichen 

0E2C 

5 A 

50 

Auto-CRLF erfolgt 

0E2D 

5 A 

50 


Hinweis: Bei den angegeben Adressen ist der übliche Offset von hexlOO, 
der bei SID oder DDT auftritt, berücksichtigt. 


Abbildung I: Speicheradressen im BASIC. COM für die Editierkommandos des Mallard-Basic 


tes, so wie man sich das zunächst auch 
vorstellen könnte, nicht zum Erfolg 
führen, da der CPC-Interpreter direkt 
auf die entsprechenden Speicherberei¬ 
che (Bildschirm, I/O-Ports und so wei¬ 
ter) zugreift und nicht die BIOS und 
BDOS-Routinen benutzt. 

Gemeinsamkeiten? 

Vergleicht man beide BASIC-Versio- 
nen miteinander, so läßt sich eine An¬ 
zahl gleicher oder gleichartiger Befeh¬ 
le feststellen. Von den 180 CPC-BA- 
SIC-Befehlen stimmen etwa 80 mit Be¬ 
fehlen des JOYCE-Mallard-BASIC 
überein. Leider jedoch in der Mehrzahl 
solche, die in beiden Versionen nur sel¬ 
ten benutzt werden. Wichtige Befehle 
der einen BASIC-Version fehlen häu¬ 
fig bei der anderen oder besitzen ande¬ 
re Schlüsselwörter und müßten umge¬ 
setzt werden. So lautet der Drucker¬ 
ausgabebefehl beim MALLARD-BA¬ 
SIC beispielsweise dem MICRO- 
SOFT-BASIC ähnlich: 

LPRINTAS 

während beim Amstrad-CPC-BASIC 
eine I/O-Port-Adressierung benutzt 
werden muß: 

PRINT# 8,A$ 

Dies, obwohl beide BASIC-Sprachen 
aus dem gleichen Softwarehaus “Loco- 
motive Software Ltd.“ kommen. Der 
Grund für die Verschiedenheit ist je¬ 
doch einleuchtend und wurde zuvor be¬ 
reits angedeutet. Das CPC-BASIC ist 
seiner Zielgruppe entsprechend mit ei¬ 
nem starken Sound- und Grafikbefehls¬ 
satz ausgestattet; das Mallard-BASIC 
dagegen wurde für den universellen 
Einsatz auf allen 8080 und 8086 
CP/M-Rechnern konzipiert. Aus die¬ 
sem Grunde benutzt letzteres die ge¬ 
normten BIOS- und BDOS-Schnittstel- 
len von CP/M-Plus und ist somit von 
der rechnerspezifischen Hardware na¬ 
hezu unabhängig. 

Doch lautet unsere Frage immer noch: 
Wo liegen die Gemeinsamkeiten von 
CPC6128 und JOYCE? Die Antwort 
müßte sich nun langsam herauskristal¬ 
lisiert haben: Beide können unter dem 
Betriebssystem CP/M-Plus arbeiten, ln 
den Handbüchern beider Computer 
wird ja oft genug auf die umfangreiche 
CP/M-Bibliothek hingewiesen. Und in 
der Tat, hier ist die gesuchte Software- 
Schnittstelle vorhanden, die einen Pro¬ 
grammaustausch ermöglichen kann. 
Schaut man sich beispielsweise die 
Dienstprogramme (DIR, RENAME, 


SUBMIT u. a.) genauer an, so kann 
man bei den meisten feststellen, daß sie 
für beide Rechnertypen bis aufs Byte 
identisch sind. Auch käufliche 
CP/M-Programme arbeiten sehr häufig 
auf beiden Rechnern ohne Probleme. 
Schwierigkeiten treten nur dort auf, wo 
auf die unterschiedlichen Bildschirm¬ 
koordinaten oder die jeweilige Tasta¬ 
turbelegung zurückgegriffen wird. 
Doch mit Hilfe des Dienstprogrammes 
SET24X80.COM läßt sich der JOYCE 
auf das Standard-Bildschirmformat mit 
24 Zeilen zu je 80 Zeichen einstellen, 
mit SETKEYS.COM beide Rechner 
auf die jeweilig gewünschte Tastatur¬ 
belegung anpassen. 

Nebenbei bemerkt, selbst die großen 
Programm-Klassiker für den JOYCE, 
wie Wordstar, PROWORT, dBase 
oder auch Turbo Pascal unterscheiden 
sich meist nur durch die Tastatur- und 
Bildschirmanpassung von den 
CPC6128-Versionen. Häufig ist sogar 
noch der versteckte Text 'CPC6128- 
Installatiorf in den Copyright-Hinwei 
sen der JOYCE-Version wiederzufinden. 
Mancher Leser und manche Leserin 
dürften nun bereits die logische Folge¬ 
rung aus unseren Überlegungen ziehen 
können. Wenn nämlich beide Rechner 


unter CP/M arbeiten und das Mallard- 
Basic ein reines CP/M-BASIC ist, so 
müßte es nicht nur auf dem JOYCE, 
sondern auf allen CP/M-Rechnern 
— und damit auch auf dem “älteren 
Bruder“, dem CPC6128, laufen. Tat¬ 
sächlich funktioniert dies sogar auf An¬ 
hieb, was sicherlich manchen Praktiker 
auf dem Gebiet der Software-Anpas¬ 
sung verwundern wird. Daß damit ei¬ 
gentlich nicht unser Ziel, die Anpas¬ 
sung von CPC-Programmen an den 
JOYCE erreicht wurde, sondern die 
umkehrte Anpassung ermöglicht wird, 
schmälert ein wenig die Begeisterung 
der JOYCE-Besitzer und Besitzerin¬ 
nen. Für die Freaks jedoch, die sowohl 
einen CPC als auch einen JOYCE ihr 
eigen nennen, bieten sich nun tolle 
Möglichkeiten an. 

Die meisten für den JOYCE bestimm¬ 
ten BASIC-Programme lassen sich re¬ 
lativ einfach für den CPC umstellen. 
Insbesondere die schnelle und exklusi¬ 
ve JETSAM-Dateibearbeitung ist nun 
auch auf dem CPC6128 möglich. 
Selbst die Bildschirm- und Drucker¬ 
ausgaben sind identisch: ’LPRINT’ 
sendet die Daten automatisch zum 
CENTRONICS-Druckeranschluß des 
CPC6128. Selbst die Umschaltung der 
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Kommando 

Adresse 

Inhalt 


T aste 


Cursor nach links 

0D85 - 0 D88 

01 

F 2 

00 

00 

Cursor 

links 

Cursor nach rechts 

0 D89 - ODBC 

Ol 

F 3 

00 

00 

Cu rso r 

rechts 

Cursor nach oben 

0D80 - 0D90 

01 

FO 

00 

00 

Cu rso r 

oben 

Cursor nach unten 

0D91 - 0D94 

01 

Fl 

00 

00 

Cursor 

unten 

DEL rechts 

0D99 - 0D9C 

01 

10 

00 

00 

CLR 


DEL links 

0D9D - ODAO 

01 

7 F 

00 

00 

DEL 


Editieren abbrechen 

ODA9 - ODAC 

02 

1B 

1B 

00 

ESC ESC 


Editieren beenden 

ODAD - 0DBO 

01 

OD 

00 

00 

CONTROL 

-C 

Bi 1dschirmzei1en 

OE2C 

50 






Auto-CRLF erfolgt 

0 E 2 D 

50 






Hinweis: Adressen-Offset = hexlOO 


Abbildung 2: Mögliche Anpassung des Mallard-Basic an die AMSDOS-Steuercodes 


Schnittstellen (Heft 11/88 “LPRINT 
auf Abwegen“) bereitet keinerlei Pro¬ 
bleme, da beide Rechner die gleichen 
Speicheradressen der BIOS- und 
BDOS-Sprungleisten benutzen. 

Ein Beispiel dafür, daß ein und dassel¬ 
be Programm auf beiden Rechnern 
ohne Probleme läuft, liefert das BA- 
SlC-Programm “JOYCPC.BAS“ (Li- 
sting 1). Durch geeignete - per Pro¬ 
gramm vorgenommene — Anpassung 
an die Bildschirmkoordinaten lassen 
sich sogar gleichartige Grafiken auf 
beide Bildschirme zaubern. Bei CPC- 
Besitzer/innen werden diese zwar nur 
ein müdes Lächeln hervorrufen, aber 
Mallard-BASIC ist ja - da CP/M- 
kompatibel — grafisch ein wenig unter¬ 
entwickelt. 

Bevor eine kurze Beschreibung des 
Programmes erfolgt, muß ich jedoch 
eingestehen, daß es ganz ohne Anpas¬ 
sung nicht gehen kann. Denn das mit¬ 
gelieferte Mallard-BASIC wurde 
schließlich für den JOYCE fest instal¬ 
liert, und der hat bekanntlich ein unge¬ 
wöhnliches Bildschirmformat. Dieser 
Unterschied muß selbstverständlich in 
solchen Programmen berücksichtigt 
werden, bei denen eine Positionierung 
von Texten oder Grafikzeichen auf 
dem Bildschirm erfolgen soll. Gesche¬ 
hen kann dies entweder umschaltbar 
per Programm (wie im vorgestellten 
“JOYCPC.BAS“) oder mit festgeleg¬ 
tem 24x80-Normformat und umge¬ 
schaltetem JOYCE-Modus. 

Also immer noch kein Problem zwi¬ 
schen den “Brüdern“? Leider doch! 
Dieses tritt spätestens beim Editieren 
von Programmzeilen auf. die über eine 
Zeilenlänge hinausgehen, also einen 
Übertrag in die nächste Zeile besitzen. 
Der Cursor und die beiden DEL-Ta- 
sten führen dabei beim CPC die ver¬ 
rücktesten Sprünge aus; das Editieren 


wird zu einem Glücksspiel. Die Vor¬ 
einstellung von 90 Zeichen pro Zeile 
muß also in jedem Falle korrigiert wer¬ 
den. Wie so häufig, gibt es auch hier 
zwei Wege, die nach Rom führen. Der 
eine ist relativ einfach und lautet: 
’WIDTH 79' 

Bekanntlich legt dieser Befehl die Zei¬ 
lenlänge auf 79 Zeichen fest. Das Edi¬ 
tieren funktioniert danach tadellos. 
Leider hat diese einfache Lösung je¬ 
doch einen Haken. Die Festlegung ist 
temporär, also nur solange wirksam, 
bis eine neue Anweisung erfolgt. Sei 
dies nun innerhalb eines Programms 
durch ein weiteres ’WIDTH xx’ oder 
auch bei Neustart von BASIC. Anmer¬ 
kung: Warum hier für die WIDTH- 
Länge der Wert 79 und nicht 80 einzu¬ 
geben ist, verwundert zwar, ist aber lo¬ 
gisch. Mit dem letzten Zeichen einer 
Zeile wird automatisch vom Betriebs¬ 
system ein Zeilenvorschub erzeugt, 
das heißt, es wird automatisch am An¬ 
fang der nächsten Zeile weitergeschrie¬ 
ben. Aus diesem Grunde muß der BA- 
SIC-Editor die Zeilenlänge und den au¬ 
tomatischen Zeilenvorschub kennen, 


wenn ein Editieren über mehrere Zei¬ 
len erfolgen soll (eine Mallard-BA- 
SlC-Zeile darf ja 255 Zeichen lang 
sein). Legt man nun die Zeilenlänge 
per WIDTH-Befehl auf 79 fest, so er¬ 
folgt vom Betriebssystem kein Zeilen¬ 
vorschub mehr, da das letzte Zeichen 
der Zeile nicht mehr erreicht wird. Der 
Editor arbeitet in dem vom BASIC sel¬ 
ber festgelegten Bereich einwandfrei. 
Logisch, nicht wahr? Um aber bei der 
Wahrheit zu bleiben: Wie so häufig im 
Rechnergeschäft, wurde der Wert na¬ 
türlich ausprobiert (vornehm ausge¬ 
drückt: “empirisch ermittelt“) und die 
Begründung nachträglich überlegt. 

SID und DPT, die treuen Helfer 

Der zweite Weg zur Bildschirmanpas¬ 
sung ist zwar aufwendiger, dafür aber 
von Dauer. Voraussetzung für einen 
derartigen Eingriff ist jedoch der Um¬ 
gang mit einem Debugger, wie SID 
oder DDT. In vielen bisher erschiene¬ 
nen Artikeln ist das Arbeiten mit einem 
Debugger erläutert worden, deshalb 
sei hier auf eine genaue Anweisung 
verzichtet. Um die Bildschirmanpas¬ 
sung vorzunehmen, muß jenes Byte im 
BASIC.COM-File geändert werden, 
das die Zeilenlänge des installierten 
Bildschirms beinhaltet. Die Adresse 
dieses Bytes (einschließlich dem bei 
Debuggern üblichen Offset von 
hexOlOO) lautet: 

’hexOE2C’ 

Der Inhalt beträgt bei der JOYCE-In- 
stallierung wie erwartet: 

’hex5A also 90 Zeilen. 

Dieser Wert ist auf hex50 = dez80 zu 
ändern. Und das war’s dann eigentlich 
schon! Doch gibt es sicher unter der 
Leserschaft viele leidenschaftliche De- 


0 N S C " A ' # 1 F 1 " 

Cursor oben 


1 N S •'''F" 

Cursor rechts 


1 C '#9F 1 " 



2 N S C " “ ' # 1E ' 

Cursor unten 


8 N S "'A" 

Cu rso r links 


8 C # 9 E ' " 



9 N S C " “ W'' 

letzte Zeile wiederholen (COPY) 

16 N S "'‘G" 

DEL rechts 

(CLR) 

16 C "*K" 

DEL bis Zeilenende 

(CTRL-CLR) 

18 C " A E " 

ENTER 


66 N S ,,Ä ‘ 2 7 1 " 

ESC 


66 C " A C" 

STOP 

(CTRL-ESC) 

79 C " / 'X" 

DEL bis Zeilenanfang 

(CTRL-DE L) 

13 N S C "~P" 

Paralleldruck ein/aus 

( fl ) 

14 N S C "''S" 

Programm anhalten 

( f 2 ) 

5 N S C " A Q M 

Programm fortfuehren 

( f 3 ) 

E # 9 E " A F‘B" 

zum Z.-Anfang (CTRL-Curs. links) 

E # 9 F , ' Ä F"B''B ,, 

zum Z.-Ende (CTRL-Curs. rechts) 


Abbildung 3: Die Datei KEYS.CPM zur Anpassung der CPC6!28-Tastatur an die üblichen 
CP/M-St euer Sequenzen 
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bugger (Entwanzer), die sich mit einer 
einzigen Änderung nicht zufriedenge¬ 
ben. Irgendwo im Mallard-BASIC 
müssen doch noch andere JOYCE-spe- 
zifischen Parameter stecken, beispiels¬ 
weise die Steuercodes für Bildschirm 
und Tastatur. Da ließe sich doch noch 
mehr anpassen, oder? 

Um das Suchen abzukürzen, zeigt Ab¬ 
bildung 1 die entsprechenden Adressen 
mit dem Inhalt der JOYCE-Installie- 
rung. Zur Erläuterung der aufgeführ¬ 
ten Steuercodes sei hier noch folgendes 
angemerkt. Die maximale Länge der 
Steuercodesequenz beträgt für die Ta¬ 
statur 3 Bytes, für die Bildschirmsteue¬ 
rung 5 Bytes. Hier wird also berück¬ 
sichtigt, daß für die Bildschirmsteue¬ 
rung in den meisten Fällen Escape-Se- 
quenzen bevorzugt werden, die 
zwangsläufig länger als CTRL-Se- 
quenzen sind. Die Länge der jeweili¬ 
gen Steuersequenz wird mit dem ersten 
Byte des Adressenbereiches angege¬ 
ben. In der aufgclisteten JOYCE-In- 
stallation haben alle CTRL-Befehle 
den Wert 01, bei den ESC-Sequenzen 
den Wert 02. Doch sind durchaus auch 
längere Steuer-Sequenzen bei einer 
Anpassung an andere Bildschirmgeräte 
oder Terminals möglich. 

Abbildung 2 zeigt nun für die Damen 
und Herren, die beim Debuggern erst 
so richtig aufleben, einen Vorschlag 
zur Anpassung des Mallard-BASICs an 
die Steuersequenzen des AMSDOS; 
also an die ursprünglichen Tastatur- 
Steuerbefehle, die beim Einschalten 
des CPC6128 vorhanden sind. Auf die 
bisher erforderliche Anpassung der Ta¬ 
statur an den CP/M-Modus des CPC 
mit Hilfe des Dienstprogramms SET¬ 
KEYS. COM kann dadurch verzichtet 
werden. 

Ich persönlich halte eine Komplett-In- 
stallation jedoch nicht für sinnvoll, da 
beim Ausstieg aus dem Mallard-BA¬ 
SIC oder beim Aufruf eines anderen 
CP/M-Programms die richtige 
CP/M-Tastaturbelegung fehlt. Die 
Cursor- und DEL-Funktionen sind 
zwar noch über CTRL-Kombinationen 
(Zweifingergriffe) möglich, jedoch äu¬ 
ßerst umständlich und schlecht über¬ 
schaubar. 

Deshalb schlage ich vor, nur die be¬ 
schriebene Zeilenanpassung vorzuneh¬ 
men, das heißt, den Inhalt der Adresse 
hexOE2c auf hex50 zu ändern. Abbil¬ 
dung 5 zeigt für ungeübte Debugger 
den Ablauf der Eingabebefehle zur Än¬ 
derung von BASIC.COM. Aus Sicher- 


SETKEYS KEYS.CPM 
LANGUAGE 2 
BASIC 


Abbildung 4: Inhah der Datei PROFILE. SUB. 

heitsgründen sollte die Bearbeitung des 
Files nur mit einer Kopie durchgeführt 
werden — beispielsweise wie hier im 
Laufwerk M. Ist die 'Operation’ ge¬ 
glückt, so kann die neue Version an¬ 
schließend auf Diskette übernommen 
werden. 

Die Tastaturanpassung sollte jedoch 
weiterhin mit dem Dienstprogramm 
SETKEYS vorgenommen werden. Da¬ 
bei kann man die beim CPC6128 mit¬ 
gelieferte Datei KEYS.CCP benutzen 
oder die in Abbildung 3 gezeigte Ver¬ 
sion KEYS.CPM. Diese wurde um ei¬ 
nige Tastenbelegungen erweitert und 
kann selbstverständlich für jede 
CP/M-Benutzung verwendet werden. 
Wird beispielsweise die Taste 
< COPY > betätigt, so wird ’CTRL- 
W' erzeugt und die letzte Befehlszeile 
wiederholt (nur im CP/M-Modus, gilt 
nicht für das Mallard-BASIC, hier muß 
CTRL-A betätigt werden). Bei gleich¬ 
zeitigem Drücken von < CON¬ 
TROL > und <ESC> wird 'CTRL- 
C’ erzeugt, das zu einem Programm¬ 
und Editier-Abbruch führt. Die STOP- 
Taste des JOYCE also, die bekanntlich 
auf dem CPC in dieser Form nicht vor¬ 
handen ist. Die in Klammern angege¬ 
benen Tastenbeschriftung kann als Er¬ 
läuterung und zur Dokumentation 
durchaus in die Datei 'KEYS.CPM’ 
mit eingegeben werden. Spätere Fra¬ 
gen “Wie war das noch ?? “ werden so 
vermieden. 

Schlüsselfertig 

Daß man sich die Bedienung durch den 
Einsatz von SUBMIT.COM und der 
entsprechenden PROFILE.SUB-Datei 
(Abbildung 4) vereinfachen kann, ist 
nur für die CPC/JOYCE-Anfänger et¬ 
was Neues. Eingeweihte wissen es 
längst: Auf der BASIC-Start-Diskette 
müssen sich dann neben dem zugehöri¬ 
gen EMS-Systemfile folgende Files be¬ 
finden: 

SUBMIT.COM 
PROFILE. SUB 
LANGUAGE.COM 
SETKEYS. COM 
KEYS.CPM 
BASIC. COM 


Wird nun aus dem CPC-BASIC mit 
dem gewohnten AMSDOS-Befehl 
CP/M aufgerufen, so läuft die richtige 
Einstellung von Zeichensatz und Tasta¬ 
turbelegung automatisch ab. Das Dis- 
ketten-BASIC wird gestartet, und Mal- 
lard-80 meldet sich auf dem Bildschirm 
mit: 

“31597free bytes “ 

Demonstrationsprogramm 

Gute Programme sollten übersichtlich 
gegliedert und selbsterklärend sein. Ob 
das beim vorgestellen BASIC-Pro- 
gramm ’JOYCPC.BAS’ gelungen ist, 
müssen Sie als Anwender/in ent¬ 
scheiden. 

Sinn des kurzen Programms soll die 
Demonstration der Gemeinsamkeiten 
dieser scheinbar “ungleichen Brüder“ 
JOYCE und CPC6128 sein. Dabei be¬ 
schränkt sich die Anpassung auf die 
Einstellung der jeweiligen Bildschirm¬ 
koordinaten, also der Bildschirmspal¬ 
ten und -zeilen (bs und bz in Pro¬ 
grammzeile 1110 und 1120). Die rich¬ 
tige Positionierung von Text und Gra¬ 
fik wird aus diesen Angaben berechnet 
und der Funktion FNgotoxy(x,y) über¬ 
geben. Ganz bewußt wurde hier die 
scheinbar umständliche Art der Text¬ 
ausgabe (Tl$=“Dieser Text .“) 

gewählt, bietet sie doch bei unter¬ 
schiedlich langen Texten und beliebi¬ 
gen Bildschirmformaten immer die 
richtige Positionierung. 

Bei der Festlegung der Grafikzeichen 
für die Rechteckdarstellung (Pro¬ 
grammzeile 300 bis 360) und der Aus¬ 
gabe der Sonderzeichen (Abbildung 6) 
wird mancher CPC-Kenner zunächst 
stutzen. Dies ist doch überhaupt nicht 
der CPC-Grafik-Zeichensatz, der da 
auf dem Bildschirm erscheint? Nein 
und doch ja! Die im CPC-AMS- 
DOS-Basic ausgegebenen Zeichen der 
Ordnungszahlen 128 bis 255 sind ande¬ 
re, als die unter CP/M-Plus. Hier hat 
sich Locomotive Software Ltd. lobens¬ 
werterweise an einen Quasi- 
CP/M-Standard-Zeichensatz gehalten. 
Somit besteht auch auf diesem Gebiet 
Übereinstimmung zwischen CPC und 
JOYCE. 

Identisch sind auch die Steuerzeichen 
für die Bildschirmsteuerung, also die 
Escape-Sequenzen für Bildschirmlö¬ 
schen, Cursorpositionierung usw.. 
Doch keine Regel ohne Ausnahme. Ei¬ 
nes gibt es beim CPC6128 nicht: den 
Unterstreichungsmodus. Der Befehl 
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A > PI P 

CP/M 3 PIP VERSION 3.0 

*M:=A: BASIC.COM 

*“C 

A:SID M:BASIC.COM 

CP/M 3 SID - VERSION 3.0 

NEXT MSZE PC END 

7100 7100 0100 DAFF 

#sOE2C 

0E2C 5A 50 

0E2D 5 A 50 

0E2E FF . 

#wM:BASIC.COM 
OOEOh record(s) written. 
# Ä C 
A > 


Abbildung 5: Befehlsablauf bei der Änderung 
des BASIC. COM-Files mit Hilfe des Debuggers 
SID.COM 

’ESC “r“’ zeigt so nur beim JOYCE 
seine unterstreichende Wirkung. 

Mit Abbildung 7 soll schließlich ge¬ 
zeigt werden, daß schon fünf Zeilen 
BASIC-Programm ausreichen, um mit 
ein wenig Grafik die eigenen Program¬ 
me zu verschönern. Zum Abschluß sei 


ein wichtiger Punkt angesprochen, den 
es zu beachten gibt. Ganz deutlich wird 
in den Computer-Handbüchern, also 
auch in denen von CPC und JOYCE, 
auf das Urheberrecht für Soft- und 
Hardware eingegangen. Dort ist auch 
in den meisten Fällen zu lesen, daß die 
mitgelieferte Software ausschließlich 
auf “dieser Maschine“ betrieben wer¬ 
den darf. Ansonsten sei eine Lizenz der 
Herstellerfirma einzuholen. Nach dem 
Buchstaben dieser Vertragsformel, die 
beim Kauf des Rechners in Kraft tritt, 
wäre jeder Betrieb von Mallard-BASIC 
auf einem CPC6128 ohne Genehmi¬ 
gung durch die Firmen AMSTRAD 
oder Schneider nicht gestattet. 

Urheberrechtschutz? 

Daß eine solch exakte Auslegung je¬ 
doch nicht immer praktikabel ist, wird 
besonders am Beispiel von Besitzern 
mit zwei JOYCE-Rechnem deutlich. 
Haben diese nun peinlich genau darauf 


zu achten, daß niemals das falsche BA¬ 
SIC im jeweiligen Rechner läuft? Si¬ 
cher nicht! Der Hintergrund für die 
harte Forderung der Software-Herstel¬ 
ler ist ein anderer. Es gilt zu verhin¬ 
dern, daß die Hardware zwar gekauft, 
die Software jedoch dann nur noch ko¬ 
piert wird. Vor diesem Hintergrund ist 
es sicher durchaus vertretbar, daß 
Hobby-Programmierer/innen, die so¬ 
wohl den JOYCE als auch einen 
CPC6128 mit der jeweils lizensierten 
Software besitzen, Programme zwi¬ 
schen den beiden Amstrad-Rechnern 
austauschen. Nicht zulässig — und das 
sei hier ganz klar gesagt - ist jedoch 
die Vervielfältigung eines urheber¬ 
rechtlich geschützten Programms, wie 
das Mallard-BASIC, um es an Dritte 
weiterzugeben oder sogar zu verkau¬ 
fen. 


(Wolfgang Otternberg/rs) 


LISTING >JOYCPC <, REMARK = >'<. 


< 51 > 

< 5 > 

< 1 4 > 

< 4 > 
<11 > 

< 9 6 > 

< 40 > 

< 24 > 

< 10 > 

< 6 7 > 

< 53 > 

< 9 7 > 

< 85 > 

< 71 > 
<32 > 

< 5 5 > 

< 31 > 

< 30 > 

< 1 > 

< 29 > 

< 56 > 

< 79 > 

< 2 > 
< 1 > 

< 3 > 

< 5 6 > 

< 40 > 

< 1 7 > 

< 2 6 > 

< 82 > 

< 2 3 > 

< 61 > 
< 8 6 > 

< 5 > 

< 15 > 

< 8 > 

< 35 > 

< 28 > 
< 10 > 

< 5 3 > 

< 1 8 > 

< 1 4 > 

< 1> 
< 5 3 > 


10 'DEMONSTRATION DER ANALOGIE JOYCE - CPC6128 
20 'Programm-Name: JOYCPC.BAS 
30 'written by. W.Otternberg 8/88 


40 ' 

100 '-VARIABLEN- 

110 '. bs =. Bildschirmspalten 

120 '. bz =. Bl 1 dschi rmzel 1 en 

130 '. bm =. Bildschirmmitte 

140 '. RP =• Rechteck-Position (obere Zeile) 

150 '. Rb =. Rechteck-Breite 

16° '. Rh =. Rechteck-Hoehe 

170 '. xl =. SpaltenNr. links 

180 '. xr =. SpaltenNr. rechts 

190 '. E$ n. Eingabe allgemein 

200 '-Steuerzeichen--- 


210 esc$=CHR$(27). 'Escape 

220 cls$=esc$+"E"+esc$+"H" 'Bildschirm loeschen 
230 coff$=esc$+"f"........ 'Cursor off 

240 con$ = esc$+ "e". 'Cursor on 

250 beep$ = CHR$( 7). 'Plepston 

300 '-Grafikzeichen- 

310 Elo$ = CHR$ (150). 'Ecke links oben 

320 E 1 u$=CHR$ (14 7). 'Ecke links unten 

330 E ro$=CHR$ (15 6 ). 'Ecke rechts oben 

340 Eru$=CHR${ 153). 'Ecke rechts unten 

350 Stw$=CHR$( 154). 'Strich waagerecht 

360 Sts$ = CHR$ ( 1 49 ). 'Strich senkrecht 

400 ‘-Funktionen- 

410 OEF FNgotoxy$(x,y)=esc$+"Y"+CHR$(31+y)+CHR$(31 
+ x ) 

420 WIDTH 255. 'max. Bildschirmweite 

430 : 

1000 '**»** HAUPTPROGRAMM *********************** 
1010 PRINT Cls$:PRINT:PRINT 
1020 PRINT,"DEMO-Programm"; 

1030 PRINT "zum Einsatz auf JOYCE, und. CPC6128" 
1040 PRINT,STRING$<50,“ = " ) 

1050 PRINT:PRINT:PRINT:PRINT 
1060 PRINT,“Bitte waehlen Sie :" 

1070 PRINT : PRINT , "J = JOYCE. C = CPC6128" 

1080 PRINT:PRINT,“Eingabe: 

1090 E$=UPPER$(INKEY$) 

1100 IF E$< >"J" AND E$< >"C" THEN 1090 
1110 IF E$="J" THEN bs=90 :bz=31 
1120 IF E$="C" THEN bs=80 :bz=24 


< 40 > 

1130 

< 19 > 

1140 

< 39 > 

1200 

< 5 > 

1210 

< 68 > 

1220 

< 2 > 

1230 

<55 > 

1240 

<29 > 

1250 

< 64 > 

1260 

< 30 > 

1270 

< 48 > 

1280 

< 13 > 

1290 

< 9 1 > 

1300 

< 90 > 

1310 

< 9 1 > 

1320 

< 24 > 

1330 

< 69 > 

1340 

< 30 > 

1350 

< 49 > 

1360 

< 12 > 

1370 

< 37 

1380 

< 17> 

1390 

< 96 > 

1400 

< 5 7 > 

1410 

< 74> 

1420 

< 85 > 

1430 

< 33 > 

1440 

< 4 7 > 

1450 

< 43 > 

1460 

< 5 6 > 

1500 

< 1 6 > 

1510 

< 2 4 > 

1520 

< 81 > 

1530 

< 1 5 > 

1540 

< 5 3 > 

1550 

< 50 > 

1560 

< 77 > 

1570 

< 9 6 > 

1580 

< 44 > 

1590 

< 40 > 

1600 

< 3 7 > 

1610 

< 80 > 

1620 

< 6 8 > 

1630 

< 52 > 

1640 

< 49 > 

1650 

< 92 > 

1660 

< 76 > 

1670 


bm=bs/2. 'Bildschirm-Mitte 

PRINT cls$ 

•-Texte positionieren- 

Tl$="Dieser Text muesste mittig stehen" 

T2$= "Dieser Text faengt links an" 

T3$="Dieser Text ist rechtsbuendig" 

T5$="Hier -1 st die letzte Bildschirmzelle" 
T6$=''Und jetzt die Ecken ! ” 

PRINT coff$ 

PRINT c1s$ 

PRINT TAB(bm-LEN(Tl$)/2);T1$ 

GOSUB 3400. * *1 ange Pause 

PRINT:PRINT T2$ 

GOSUB 3400. 'lange Pause 

PRINT:PRINT TAB(bs-LEN(T3$));T3$ 

GOSU8 3400 

PRINT FNgotoxy$(3,bz);T5$; 

GOSU8 3400 
PRINT con$;cls$ 

PRINT FNgotOxy$(bm-LEN(T6$)/2,15);T6$ 

M$="*" 

FOR m=1 TO 15 

PRINT FNgotoxy$(1,1);M$ 

PRINT FNgotOxy$(bs,l);M$; 

PRINT FNgotoxy$(1,bz);M$; 

PRINT FNgotOxy$(bs,bz); 

IF M$='' * " THEN M$=" " ELSE M$=''*" 

GOSUB 3600. 'kurze Pause 

NEXT m 

'-Striche zeichnen- 

PRINT cls$ 

PRINT "Einfach-Strich ueber den Bildschirm:" 

FOR n=1 TO bs 

PRINT 

NEXT n 

PRINT:PRINT 

PRINT "Andere Stricharten:":PRINT 
FOR n=1 TO bs 
PRINT CHR$(154); 

NEXT n 
PRINT:PRINT 
FOR n=l TO bs 
PRINT CHR$(138); 

NEXT n 
PRINT:PRINT 
FOR n=l TO bs 
PRINT CHR$(255); 
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< 64 > 

< 10 > 

< 72> 

< 2 > 
<91 > 

< 72 > 

< 5 9 > 

< 36 > 
<59 > 

< 9 5 > 

< 71 > 

< 5 8 > 

< 12 > 

< 51 > 

< 55> 

< 8 5 > 

< 36 > 

< 3 1 > 

< 26 > 
< 11> 

< 83 > 

< 36 > 

< 84 > 

< 35 > 

< 30 > 

< 46 > 

< 13> 

< 13> 

< 5 9 > 

< 86 > 

< 37 > 

< 32 > 

< 66 > 

< 1 5 > 

< 2 2 > 

< 31 > 

< 88 > 

< 4 > 

< 42 > 

< 89 > 

< 36 > 

< 3 > 

< 29 > 

< 59 > 

< 76> 

< 92 > 

< 40 > 

< 86 > 
< 22 > 

< 93 > 

< 66 > 

< 30 > 

< 2 5 > 

< 9 2 > 

< 88 > 

< 65 > 
<277 

< 93 > 

< 4 > 

< 2 7 > 

< 80 > 

< 3 > 

< 4 1 > 

< 44 > 

< 45 > 

< 50 > 

< 88 > 

< 71> 

< 88 > 

< 34 > 

< 68 > 

< 55 > 

< 33 > 

< 46 > 

< 80 > 

< 4 6 > 

< 32 > 

< 5 6 > 
<61 > 

< 5 6 > 

< 89 > 

< 68 > 
< 61 > 
< 66 > 

< 9 7 > 

< 4 > 

< 9 5 > 

< 70 > 

< 2 > 

< 65 > 

< 6 3 > 

< 74 > 

< 39 > 

< 9 > 


1680 

1690 

1700 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

3000 

3010 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3400 

3410 

3420 

3430 

3600 

3610 

3620 

3630 

3800 

3810 

3820 

3830 

3840 


NEXT n 

G0SU8 3800. ' Warten 

PRINT cls$; 

•-Sonderzeichen- 

PRINT "Dies sind die SonderzeichenPRINT 

FOR n = 12B TO 255 

PRINT n ; : " ;CHR$( n) ; " . . " ; 

IF n MOD 7=1 THEN PRINT 
NEXT n 
GOSUB 3800 

'-Rechteck-Grafiken- 

'-Grafik 1- 

PRINT cls$ 

FOR 1=2 TO 10 

Rp=bz/2-I :Rb=5*I :Rh=2*I 

GOSUB 3100 

NEXT I 

GOSUB 3400 

'-Grafik 2- 

PRINT cls$ 

FOR 1=1 TO 18 
Rp=2 :Rb=4*I :Rh=I 
GOSUB 3100 
NEXT I 
GOSUB 3400 

1 -Grafik 3- 

PRINT cl3$ 

FOR 1=1 TO 14 

Rp=I :R b=3*I :RH=10 

GOSUB 3100 

NEXT I 

GOSUB 3400 

'-Grafik 4- 

PRINT cls$ 

FOR I=CINT(bz/3-1) TO 1 STEP-1 
Rp=3*I :Rb= 70 :Rh=3 
GOSUB 3100 

PRINT FNgotoxyS(bm-8,Rp+1);"S t u f e. ";I 
NEXT I 
GOSUB 3800 
PRINT cls$ 

'- Laufschrift - 

PRINT cOff$;c1s$ 

T 7$= "<<<<<< Ende des DEMO-Prog ramms >>>>>>" 

Rp=10: Rb= LEN ( T 7$ ) + 4 : Rh=3 

GOSUB 3100 

FOR 1 = 1 TO LEN(T 7$ ) 

FOR J=LEN(T7$) TO I STEP-1 

PRINT FNGOTOXY$ ( J + bm- (LEN(T7$)/2)-l, 1 1 > ; 

PRINT MID$(T 7$, I , 1) ; " “ 

NEXT J 
NEXT I 
GOSUB 3400 
PRINT con$ 

END 

'**»** Ende des Hauptprogramms ************* 
'***** Unterprogramme ********************** 


- Unterprogramm Rechteck zeichnen - 

xl=bm-CINT((Rb-l)/2) 
x r = x1+Rb-1 

PRINT FNgotOxy$(xl,Rp);El0$; 

FOR n=l TO (Rb-2) 

PRINT Stw$; 

NEXT n 
PRINT E ro$ 

FOR n = 1 TO (Rh-2 ) 

PRINT FNgotoxy$(xr.Rp+n);Sts$; 

NEXT n 
PRINT 

FOR n=1 TO (Rh-2) 

PRINT FNgotoxyS(x1,Rp+n);Sts$; 

NEXT n 
PRINT 

PRINT FNgotoxyS(x1,Rp+Rh-l);Elu$; 

FOR N=1 TO (Rb-2) 

PRINT Stw$; 

NEXT n 
PRINT Eru$ 

RETURN 

'- Unterprogramm lange Pause - 

FOR p=l TO 3000 

NEXT p 

RETURN 

1 Unterprogramm kurze Pause - 

FOR p=l TO 300 
NEXT p 
RETURN 

'- Unterprogramm Warten - 

PRINT FNgotOxy$(bs-35,bz)J 

PRINT "Weiter durch Druecken einer Taste 

WHILE INKEY$="":WEND 

RETURN 
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I—JOYCE 



Bilder zum Spartarif 

Den Bildschirm des JOYCE komprimieren 


Bildschirm-Kompressoren, also Programme, die den Inhalt des Bildschirm¬ 
speichers in komprimierter Form auf Diskette speichern und diese kompri¬ 
mierten ’Screens’ auch wieder laden können, gibt es mittlerweile für fast je¬ 
den Computer. Aufgabe dieser Programme ist es, den enormen Speicher¬ 
platzbedarf eines kompletten Bildes auf der Diskette so weit wie möglich zu 
reduzieren. Die zirka 23 kByte dagegen, die ein kompletter Bildschirm des 
JOYCE (PCW 8256/8512) normalerweise beim Speichern auf der Diskette 
belegt, ermutigen nicht gerade dazu, Titelbilder, Grafiken oder Texte im 
Bildschirm format abzuspeichern. 


Mit dem Programm-Modul SCRKOMP. 
BAS (siehe Listing 1) können nun auch 
die Bilder des JOYCE in komprimier¬ 
ter Form gespeichert und wieder gela¬ 
den werden. Die hierbei angewandte 
Technik ist etwas ungewöhnlich, 
kommt aber der Grundkonzeption der 
PCW-Rechner entgegen. SCRKOMP 
wandelt nämlich den Inhalt des Bild¬ 
schirmspeichers zurück in ASClI-Zei- 
chen, sofern für die einzelnen Zeichen¬ 
matrizen ein entsprechendes Zeichen 
vorhanden ist. 

Auf diese Art lassen sich dann auch un¬ 
gewöhnlich hohe Kompressionsraten 
erzielen, denn je nach Grafikanteil 
kann ein kompletter Bildschirm bis 
hinunter auf 3 kByte komprimiert wer¬ 
den. Dies entspräche einer Kompres¬ 
sion von bis zu 87 %. Abbildung 1 zeigt 
die Hardcopy eines Bildschirms mit ei¬ 
ner Kombination von Text und Grafik, 
die auf 12 kByte, also ungefähr 50%, 
komprimiert werden konnte. Wie weit 
ein ’Screen’ komprimiert werden 
kann, hängt, wie schon angedeutet, 


vom Grafikanteil des Bildes ab, das 
heißt, von der Anzahl der Zeichenma¬ 
trizen, für die kein entsprechendes 


ASCII-Zeichen gefunden werden 
kann. Ist eine Umwandlung nicht mög¬ 
lich, werden die acht Bytes einer Zei¬ 
chenmatrix unverändert abgespeichert. 

Beispiele 

SCRKOMP besteht neben dem DATA- 
Lader, der das Maschinenprogramm in 
den Speicher ’poked’, aus drei Unter¬ 
programmen, die vom Hauptpro¬ 
gramm wie folgt aufgerufen werden: 

1. Initialisieren 

Dieses Unterprogramm muß unbedingt 
aufgerufen werden, bevor Sie versu¬ 
chen, die anderen Unterprogramme 
auszuführen, denn hier wird das Ma¬ 
schinenprogramm geladen und die be¬ 
nötigten Adressenvariablen initiali¬ 
siert. Der Aufruf erfolgt mit 

GOSUB 10030 

und sollte nach Möglichkeit zu Beginn 
Ihres Programmes erfolgen. 

2. Bildschirm speichern 

Dieses Unterprogramm wird mit 

GOSUB 10090 

aufgerufen und speichert den aktuellen 
Inhalt des Bildschirmspeichers in kom¬ 
primierter Form auf Diskette ab. 

3. Bildschirm laden 
Der Aufruf erfolgt mit 

GOSUB 10170 

und die entsprechende Datei wird dann 
in den Bildschirmspeicher geladen. 
Für die Unterprogramme 'Bildschirm 
speichern’ und 'Bildschirm laden’ 
müssen zwei Parameter übergeben 
werden: ’scrfile%’ enthält die Datei- 
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nummer, und ’scrname$’ enthält den 
Namen der gewünschten Bildschirm¬ 
datei. Listing 2 zeigt Ihnen, wie Sie 
SCRKOMP in Ihr eigenes Programm 
einbauen und ansprechen können, da¬ 
bei ist natürlich auch eine andere Ein¬ 
bindung als die hier gezeigte möglich. 
Sie können SCRKOMP zum Beispiel 
auch direkt mit 

MERGE “SCRKOMP“ 

an Ihr Programm ’anhängen’ und ha¬ 
ben dann die gezeigten Möglichkeiten 
zur Verfügung. Eine Initialisierung ist 
aber auf jeden Fall notwendig. Die Bei¬ 
spielaufrufe zum Speichern und Laden 
des Bildschirms sind als separate Un¬ 
terprogramme programmiert, so daß 


Sie diese direkt in Ihr Programm über¬ 
nehmen können. Für 'Bildschirm spei¬ 
chern’ wird automatisch eine Datei mit 
Namen “SCREEN.nbr“ erzeugt, wo¬ 
bei ’nbr’ jeweils auf den nächsten ver¬ 
fügbaren Zahlen wert gesetzt wird. Da¬ 
mit wird ein Überschreiben schon vor¬ 
handener SCREEN-Dateien verhin¬ 
dert. Für das Beispiel 'Bildschirm 
laden’ müssen Sie den gewünschten 
Dateinamen eingeben. 

Hinweise 

Zum System: 

Für die Programmierung des Maschi¬ 
nenteils wurden aus Platzgründen eini¬ 


ge Systemroutinen des CP/M-Betriebs- 
systems benutzt, darum ist diese Pro¬ 
gramm nur unter CP/M-3 Version 1.4 
(Systemfile J14GCPM3.EMS) lauffä- 
hig. Falls Sie eine andere Version be¬ 
nutzen, müssen die Adressen dieser 
Routinen eventuell angepaßt werden. 

(Norbert Finke/rs) 


Diese Programme sind in Mallard-BASIC geschrie¬ 
ben. Nach dem Eingeben sollte zuerst mit 
SAVESCRKOMP. BAS “ < RETURN> und durch 
SAVE SCRBEISP.BAS" <RETURN> abgespeichert 
werden. Später können Sie die Programme dann wie 
im Text beschrieben starten. 

Auf der Databox steht neben den zwei Programmen 
noch das dokumentierte Assemblerlisting und ein 
Demo-Bild zur Verßigttng. 


LISTING > SCRKOMP <, REMARK 


> ' < . 


< 4 > 
<11> 

< 6 > 

< 69 > 

< 7 > 

< 38 > 

< 29 > 

< 3 1 > 

< 66 > 

< 95 > 

< 5 1 > 

< 29 > 

< 24 > 

< 12 > 

< 5 0 > 

< 32 > 

< 63> 

< 35 > 

< 77> 

< 28 > 

< 55 > 

< 36 > 

< 69 > 

< 73> 

< 40 > 

< 2 > 

< 93 > 

< 2 3 > 

< 55 > 
<31 > 

< 64 > 

< 6 > 

< 15 > 

< 9 6 > 

< 88 > 
< 18 > 

< 33 > 

< 2 6 > 

< 9 6 > 

< 90 > 

< 2 6 > 

< 76 > 

< 46 > 

< 20 > 

< 1 7 > 

< 59 > 

< 14 > 

< 7 5 > 

< 80 > 

< 14 > 

< 83 > 

< 19 > 

< 7 > 

< 12 > 

< 75> 

< 44 > 

< 15 > 

< 45> 

< 38 > 

< 72 > 

< 2 1 > 

< 5 7 > 

< 9 3 > 

< 35 > 


10000 

10002 

10004 

10006 

10008 

10010 

10012 

10013 

10014 
100V6 

10017 

10018 

10019 

10020 
10022 
10024 
10030 
10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 


' * - * 

'*. SCRKOMP. BAS. * 

Dieses Programm-Modul komprimiert und. * 
speichert den aktuellen Bildschirm auf * 
'*. Diskette bzw. lädt ein komprimiertes. 
Bild von Diskette in den Bildschirm¬ 
spei eher... 


' * 

' * 

' * 

Auf ruf Parameter: scrf11e%=Dateinumme 
'*. scrname$ = Dateiname. 


'*. wrltten 1989 by NoFi. * 

'*. Programmiert in MALLARD-BAS1C,.. 

■ *-* 

'*. Unterprogramm: Initialisieren. * 

■ *-* 

GOSUB 10320:... 'Maschinenprogramm speichern 

1nit=&HF300:savescr=&MF316:1oadscr=&HF3E9 
ret=&HF48D:RETURN 


Unterprogramm: Bildschirm speichern... 


1 * 

1 *- 

GOSUB 10250: 'File öffnen und initialisieren 
WHILE PEEK(ret)=0 

CALL savesc r ( recad r?6) : PUT serf i le)t 
WEND 

CLOSE scrfile*:RETURN 


Unterprogramm: Bildschirm laden. * 


' * . 

' *- 

GOSUB 10250: 'File Öffnen und initiali: 
WHILE PEEK(ret)=0 

GET scrf11 e %:CALL 1oadscr(recadrX) 

WEND 

CLOSE serfi1eX:RETURN 


’ * . . 

• * - 

CALL 1 n1t: . 
OPEN "R",sc 
recad rX=VAR 
RETURN 
• *- 


File öffnen und initialisieren. 


. 'Koordinaten initialisieren 

rfi1eX,scrname$,128: 'File öffnen 
PTR(Üscrfi1 e %):‘Adr Record-Puffer 


'*. Maschi nenprog ramm. * 


< 8 7 > 10510 

< 3 7 > 10520 
<52 > 10530 

< 82 > 10540 

< 45 > 10550 

< 53 > 10560 

< 88 > 10570 

< 7 > 10580 


' * 

MEMORY &HF2 
FOR ad r = &HF 
READ a$:POK 
NEXT: RETUR 
DATA 21.5A, 
DATA 32.8F, 
DATA F4.B7. 
DATA E9.00, 
DATA 6E.F4, 
DATA ED,BO, 
DATA 01,FF, 
OATA 28,OC, 
DATA E8.E5, 
DATA BE,28, 
DATA OE,01, 
DATA 32,8E, 
DATA CD,87, 
DATA 10,OA, 
DATA CB,79, 

DATA OC,OE, 
DATA 09,36, 
DATA 80,21, 
DATA 80,F4, 
DATA 94,F4, 
DATA 5A.FC. 
DATA 7E.23, 
DATA AA,15, 


FF:RESTORE 10360 
300 TO &HF48C 
E adr,VAL("&H"+a$) 

N 

20,22,90,F4,21,00,00,22,92,F4,AF 
F4,32,8D,F4,3D,32,8E,F4,C9,3A,8D 
CO,5E,23,56,D5,01,33,F3,CD,5A,FC 
Dl,21,94,F4,01,80,00,ED,BO,C9,CD 
B7,28,OC,EB,21.80,00,19,06,00,C5 
CI', EB , D9 , C5 , D5,21 , 70,17,CD, 64,17 
00,21,00,BB,11,08,00,3A,70,17,BE 
19,10,F7,0C,C2,CC,F3,CD, 7F,F4,18 
D5,C5,Ol,70,17,lD,28,4E.03,23,0A 
F7,10.CI,Dl.El,20,OF,B9,20,DC,OC 
28,02,OE,03,3A,8E,F4,B9,28,07,79 
F4.CD,B7.F4,78,ED,44,FE,05,38,30 
F4,Dl,CI,IC,00,20,10,14,59,OE,5A 
3E,FF,32,8D,F4,D9,4F,36,1A,09,D9 
28,8B,79,E6,7F,D9,18,78,C1,Dl,El 


02,20,C0 
04,23,EB 
09,00,CI 
87,CO.5 E 
09,EB,01 
E9,00,C9 
D9,C5,FE 
Dl,C1,IC 


OE,00,18, 
21,70,17, 
09,44,4D, 
23,56,47, 
80,00,ED, 
CD,6E,F4, 
04,38,4E, 
00,20,OC, 


BC,OC,C4,7F,F4 
C5,01,08,00,ED 
EB,D9,18,86,3A 
3A,8F,F4,4F,21 
BO,01,09,F 4.CD 
C6,80,4F,06,00 
D5,28,28,4F,CD 
14,59,OE,5A,10 


< 7 > 

10590 

DATA 

< 73 > 

10600 

DATA 

< 5 > 

10610 

DATA 

< 94 > 

10620 

DATA 

< 38 > 

10630 

DATA 

< 93 > 

10640 

DATA 

< 20 > 

10650 

DATA 

< 8 > 

10660 

DATA 


LISTING > SCRBEISP <, REMARK = >'<■ 


< 2 1 > 

< 19 > 

< 59 > 

< 18 > 

< 9 1 > 

< 3 1 > 

< 30 > 

< 32 > 

< 34 > 

< 36 > 

< 19 > 

< 2 4 > 

< 18 > 
< 28 > 
<81 > 

< 4 ) 

< 3 > 

< 8 7 > 

< 38 > 

< 3 7 > 

< 20 > 
< 22 > 

< 24 > 

< 26 > 

< 3 1» 

< 82 > 

< 35 > 

< 88 > 
< 12 > 

< 92 > 

< 26 > 
< 66 > 

< 98 > 

< 61 > 

< 58 > 

< 7 7 > 

< 82 > 

< 89 > 

< 40 > 

< 39 > 
<22 > 

< 2 4 > 

< 2 6 > 
< 28 > 

< 33 > 

< 5 5 > 

< 3 7 > 

< 90 > 

< 1 4 > 

< 9 4 > 

< 78 > 

< 2 7 > 

< S6> 

< 38 > 

< 80 > 

< 8 7 > 

< 38 > 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 

250 CHAIN MERGE ”SCRKOMP", 260,ALL 

260 GOSUB 10030:. 'Maschinenprogramm laden 

270 ' 


*. Beispiel-Routlnen für das Einbinden und. * 
*. Aufrufen des Programm-Moduls 'SCRKOMP'.. * 

* . wrltten 1989 by NoFi. * 

* . Programmiert in MALLARD-BASIC. * 

* -* 


* - * 

* Beispiel: SCRKOMP einbinden. * 

* - , 



400 scrname$="SCREEN.000":s=1 
410 WHILE FIND$(scrname$)< > '"' 

420 MID$(3crname$,8,3)=RIGHT$("00"+MID$( 
.3) 

430 s=s+l:WEND 

440 scrf11eX=l:. 'Dateinummer 

450 GOSUB 10090:. 'Speicher-Rou11n 

460 RETURN 
470 ’ 

480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 ' 

600 INPUT;"Welche Bildschirmdatei soll g 
den" ; scrname$ 

610 IF FIND$(scrname$ ) = "" THEN PRINT "Da 
vorhanden!":GOTO 600 

620 scrfile*=l:. 'Dateinummer 

630 GOSUB 10170:. 'Lade-Routin 

640 RETURN 
650 ' * 

66 0 '*- 


ST R$(3 ) ,2) 


festlegen 
e auf rufen 


* Dateinamen festlegen 


e1aden wer 
tei nicht 


fest 1 egen 
e auf rufen 


Listing Spartarif 


Listing Spartarif 
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I JOYCE 


Was wäre, wenn ... 

... es kein NSWEEPgäbe? 

Das Manko , daß bei fast allen PD-Programmen nur eine englische Anlei¬ 
tung auf Diskette vorhanden ist , fallt gerade bei Programmen wie NSWEEP 
ins Gewicht , wo viele Funktionen (hier zum Kopieren) zur Verfügung ge¬ 
stellt werden. Wer der englischen Sprache nicht mächtig ist oder wer engli¬ 
sche Fachbegriffe nicht weiß - nicht wissen kann benötigt für solche 
Programme eine deutsche Anleitung, sind sie doch sonst für ihn nutzlos. 


Einen Anfang möchten wir hier ma¬ 
chen und Ihnen eine Erklärung der ein¬ 
zelnen Befehle von NSWEEP liefern. 
Da es von diesem Programm jedoch 
mehrere Versionen gibt, haben wir uns 
die unserer Meinung nach am besten 
und am übersichtlichsten gehaltene 
Version herausgesucht. Diese Version 
2.07a ist auf den Public-Domain-Sam- 
meldisketten mit dem Namen 
SWEEP30 oder NSWEEP30 ange¬ 
geben. 


NSWEEP ist eine Benutzeroberfläche aus der Public 
Domain. Sollten Sie Interesse an diesem Programm ha¬ 
ben, schauen Sie sich bitte den Public-Domain-Artikel 
an. Dort werden Adressen genannt, wo Sie Public-Do- 
main-Progratnme bekommen können. 


Befehlsübersicht von A bis Z 


? - Help 

? blendet eine Hilfsseite ein, welche 
alle Tastenfunktionen auf dem Monitor 
auflistet. 

A - Retag 

Eine Datei, welche zuvor mit T oder W 
markiert wurde, kann jetzt wieder aus 
der Masse der markierten Dateien aus¬ 
geschlossen werden. 

B — Back one File 

Sollten Sie aus Versehen SPACE oder 
RETURN betätigt haben, kommen Sie 
so auf die vorherige Datei zurück. 

C — Copy File 

Die Datei, hinter der Sie sich befinden, 
wird kopiert. Nach dem Drücken von 
C sollte nun das Ziellaufwerk, der An¬ 
wenderbereich sowie der neue Datei¬ 
name angegeben werden. 

D — Delete File 

Die aktuelle Datei wird nach einer Si¬ 
cherheitsabfrage gelöscht. 


E — Erase T/U files 

Alle bisher markierten Dateien können 
automatisch gelöscht werden. Eine Ab¬ 
frage macht es möglich, daß bei jeder 
Datei noch einmal nachgefragt wird, 
ob diese wirklich gelöscht werden soll. 

F — Find File 

Durch Eingabe eines Dateinamens 
sucht das Programm auf dem aktuellen 
Laufwerk, ob die Datei vorhanden ist, 
und springt zu dieser. 

L — Log new disk/user 

Nach Eingabe des neuen Laufwerks so¬ 
wie des Anwenderbereichs in dem For¬ 
mat Laufwerk +Anwender (A0) wech¬ 
selt das Programm auf das Laufwerk 
und den Anwenderbereich. 

M — Muss file copy 
Alle markierten Dateien werden mit 
dieser Funktion auf das anzugebende 
Ziellaufwerk kopiert. 

P - Print file 

Die aktuelle Datei kann auf den 
Drucker ausgegeben werden (praktisch 
zum Beispiel bei unseren LIESMICH- 
Dateien von der Databox) 

Q — Squeeze/Unsqueeze files 
Markierte Dateien können kompri¬ 
miert oder dekomprimiert werden. 
Dies ist bei Festplattenbackups sehr in¬ 
teressant, da zum Beispiel bei Textda¬ 
teien sehr viel Speicherplatz eingespart 
werden kann. 

R — Rename File(s) 

Bei dem An wählen dieser Funktion 
können einzelne Dateien umbenannt 
werden. als Eingabe läßt Sie das 
Programm frei wählen, ansonsten wird 
die aktuelle Datei umbenannt. 

S — Check remaining space 
Der freie Speicherplatz eines 
Disketten- oder Festplattenlaufwerks 
wird nach Eingabe des Laufwerks¬ 
buchstaben ausgegeben. 


T - Tag file for mass 

Die aktuelle Datei wird markiert, um 
später mit anderen zusammen weiter¬ 
verarbeitet zu werden. 

U — Un tag file 

Wenn die aktuelle Datei markiert wur¬ 
de, kann der Marker wieder entfernt 
werden. 

V — View file 

Der Inhalt der aktuellen Datei wird auf 
dem Monitor angezeigt. 

W — Wildcard tag of files 

Durch Eingabe einer Suchmaske 
(Wildcards wie und ’?’ werden ak¬ 
zeptiert) werden alle Dateien, die die¬ 
ser Suchmaske entsprechen, mit einem 
Marker versehen. 

X - Exil 

Das Programm wird abgebrochen. 

Y — Set file Status 

Der Status, Read only, System oder 
Archiv wird der aktuellen Datei zuge¬ 
wiesen. 

Z — Wildcard untag of files 
Wie bei W. Bei allen markierten Datei¬ 
en, die der Suchmaske entsprechen, 
wird die Markierung entfernt. 

? - Display Help 

Eine Befehlsliste aller Dateien wird auf 

den Bildschirm ausgegeben. 

er, sp — Forward one file 

Beim Arbeiten mit einzelnen Dateien, 

kommen Sie durch Drücken von 

SPACE oder RETURN auf die nächste 

Datei. 

Grundsätzliches 

Beim Arbeiten mit NSWEEP könnten 
folgende Informationen für Sie noch 
wichtig sein: 

1. Bei Laufwerks- und Anwenderanga¬ 
ben kann auf eine von beiden Angaben 
verzichtet werden. Das bedeutet, daß 
sie, wenn Sie nur in einen anderen An¬ 
wenderbereich wechseln wollen, nicht 
extra noch einmal die Laufwerksanga¬ 
be benötigen. 

2. Der Aufbau von NSWEEP ist recht 
interessant und übersichtlich gehalten. 
Alle benötigten Angaben werden in 
folgender Reihenfolge markiert: Nach 
der Dateinummer (nur der Übersicht¬ 
lichkeit halber vorhanden) folgt die 
Laufwerks- und die Anwenderangabe. 
Daneben folgt nun der Dateiname und 
die Länge der Dateien in kByte. Befin¬ 
det sich neben dem Doppelpunkt am 
rechten Rand noch ein Sternchen, so 
bedeutet dies, daß diese Datei vorher 
markiert wurde. 

(rs) 
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Name: _ 

Straße: _ 

Ort: _ 

Alter: _ 

Beruf: _ 

(Alle Angaben dienen uns nur zur statistischen 
Auswertung und werden selbstverständlich 
streng vertraulich behandelt.) 


DMV 

Stichwort »JOYCE-Leserbefragung« 
Postfach 250 

3440 Eschwege 



Ihre Nachricht Ihre Zeichen 

PC Amstrad 6/89 (RS/SR) 


Um eben dies zu erfahren, möchten wir 
Sie bitten, diesen Bogen ausgefüllt an uns 
zu senden. Unter den bei uns bis zum 
30.6.1989 (der Poststempel gilt) einge¬ 
gangenen Briefen werden dann einige 
Gewinner gezogen, auf die wirklich in¬ 
teressante Preise warten. 

Bei den Spendern dieser Preise, 

— ACW-Soft, 

— Schneider-Data und 

— Wiedmann-Unternehmensberatung, 

möchten wir uns recht herzlich be¬ 
danken. 

Und dies sind unsere Preise: 

/. Preis 

Ein Softwarepaket im Wert von 500 DM 

2. Preis 

Ein Softwarepaket im Wert von 300 DM 

3. Preis 

Ein Softwarepaket im Wert von 200 DM 

und viele Trostpreise, wie zum Beispiel: 
Hefte der PC Amstrad und unsere Data- 
boxen zum Heft. 

Wie immer ist hier der Rechtsweg ausge¬ 
schlossen. Mitarbeiter des DMV-Verla¬ 
ges und deren Angehörige dürfen selbst¬ 
verständlich nicht an dieser Leserbefra¬ 
gung teilnehmen. 


Unsere Zeichen 


Welche Konfiguration besitzen Sie? 

JOYCE PCW 8256 □ 

JOYCE PCW 8512 □ 

JOYCE PCW 9512 □ 

Mit welcher LocoScript-Version arbeiten 
Sie? 

Version: _ 

Haben Sie Ihren Computer aufgerüstet 
(RAM-Erweiterung)? 

Ja □ Nein □ 

Welche Hardware-Erweiterungen haben 
Sie nachträglich angeschlossen? 

5 l/4“-Laufwerk □ Typ:_ 

Festplatte □ Typ: _ 

Drucker □ Typ:_ 

Joystickadapter □ Typ:_ 

Soundcontroller □ Typ:_ 

Sonstiges: _ 


Mit welchen Programmen arbeiten Sie auf 
Ihrem Computer: 

1. _ 

2 . 

3. _ 

4. _ 


Was darf Ihrer Meinung nach eine gute 
Software kosten? 

von_bis_ 


Tag 


Benutzen Sie noch andere Computer neben 
Ihrem JOYCE PCW? 

Typ: - 

Benutzen Sie Ihren Computer täglich oder 
eher selten? 

täglich □ selten □ 

Wie schätzen Sie sich selber ein? 
Anwender □ Programmierer □ 

Anfänger □ Fortgeschrittener □ 

Profi □ 

In welchen Programmiersprachen pro¬ 
grammieren Sie? 

Mallard-BASIC □ Turbo Pascal □ 
dBase □ Assembler □ 

Sonstige: _ 

Die PC Amstrad lesen Sie 

regelmäßig □ häufig □ selten □ 

Die JOYCE-Rubrik gefällt Ihnen 

sehr gut □ gut □ weniger gut □ 
gar nicht □ 

Sie wünschen sich mehr 

Anwendungen □ Spiele □ 

Tips & Tricks □ 

Sonstiges _ 


Welches Programm aus der PC Amstrad 
oder aus einem der Sonderhefte hat Ihnen 
am besten gefallen? 


Wie finden Sie unsere Sonderhefte? 



sehr gut 

gut 

schlecht 

SH1 

□ 

□ 

□ 

SH2 

□ 

□ 

□ 

SH3 

□ 

□ 

□ 

SH4 

□ 

□ 

□ 


Nur für JOYCEr 

Die große JOYCE-Leserbefragung 

Um Ihren Wünschen und Erwartungen gerecht werden zu können, müssen 
wir selbstverständlich wissen, in welcher Form Sie Ihren Computer nutzen 
und wie Sie Ihn gerne nutzen möchten. 





































_Joyce Programmsammlungen_ 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 
Programmsammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom¬ 
plettes Programmpaket mit 3‘‘-Diskette und Bedienungsanleitung ausgeliefert. 




Joyce Programmsammlung VOL. VI 


Die universell einsetzbare 
Tabellenkalkulation zum Erstellen 
von Monatsbilanzen, T-Konten 
etc. für die PCW(JOYCE)-Familie 


Leistungsumfang: 

Auf der mitgelieferten Diskette finden Sie alle zur Erstellung 

eine Startdiskette nötigen Programme und Dateien. Die Be¬ 
dienungsanleitung enthält eine ausführliche Erklärung aller 

Funktionen. 

Funktionen: 

- kurze Einarbeitungszeit, da eine einfache und übersicht¬ 
liche Menüführung Fehleingaben abfängt oder gar nicht 
erst zuläßt 

- schnelles Arbeiten durch Belegung der Funktionstasten 
mit den wichtigsten Funktionen 

- auf Wunsch wird die Formel des aktuellen Feldes am un¬ 
teren Rand eingeblendet 

- besonders schnelle Bearbeitung von Eingaben und Be¬ 
rechnungen 


- arbeitet vollständig auf dem Memory-Laufwerk, was 
Schreib-/Leseoperationen wesentlich beschleunigt 

- bis zu 68 Zeichen pro Formel möglich 

- eigene Befehle zur Verkürzung der Formeln 

- drei verschiedene Schriftarten beim Drucken 

- standardmäßig 2574 frei belegbare Felder 

- akzeptiert sogar Exponentenschreibweise 

Joyce Programmsammlung Vol. VI TABKALK für alle JOYCE 
(PCW's) braucht den Vergleich mit vielen teureren Program¬ 
men nicht zu scheuen. 

Joyce Programmsammlung Vol. VI für alle JOYCE PCW’s 
Best.-Nr.: 22 i 3“-Diskette 59, - DM * 

unverbindliche Preisempfehlung 




***" Sli Mhnku. v!nn ’ tu. Ouin In killt tJ> HWI NU. 1 1 


Das maßgeschneiderte 
DATENBANKSYSTEM für die 
PCW(JOYCE)-Familie 
(PCW 8256, PCW8512, PCW 9512* *) 

Max. 27 Felder pro Datensatz, 50 Stellen 
pro Feld, 35.000 Sätze pro Datei, mini¬ 
maler Disketten-Speicherbedarf! 
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Die wichtigsten Leistungen von Vol. V auf einen Blick: 

- Generiert Standard-Direktzugriffsdateien (BASIC), die auch in Eigenprogram¬ 
me eingebunden werden können. 

- Vollautomatisch generierte Maske zur Datenerfassung, Datenänderung und 
Datenlöschung. 

- Reservierung des nötigen Speicherplatzes auf der Diskette, mit automatischer 
Erweiterung bei Erreichen der Reservierungsgrenze. 

- Gelöschte Datensätze werden vorrangig neubelegt, bevor weitere Sätze ver¬ 
braucht werden. 

- Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien. 

- Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 

- Alle Programme werden auf der RAM-Floppy gehalten. 

- Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal¬ 
tenformatierung. 

- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 

- Auf Wunsch Summen numerischer Spalten. 

- Freie Wahl der Sortierung: Mehrfachsortierkriterien. 


- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter. 

- Nach 1-2 Minuten können Sie bereits über eine komfortable Maske Daten er¬ 
fassen. 

- Druckmasken für die beliebig sortierte Datenauflistung am Bildschirm oder am 
Drucker brauchen Sie nicht erst mühselig zu programmieren, sie werden vol¬ 
lautomatisch für beliebige Datenfelder und Spaltenfolgen generiert. 

- Bei mehrseitigen Auflistungen am Bildschirm Direktsprung zu jeder beliebigen 
Seite. 

- Einmal gewählte Druckparameter werden auf Wunsch gespeichert, die ent¬ 
sprechenden Listen können jederzeit abgerufen werden. 

Sofort Ergebnisse statt (frustrierender) Erlebnisse! 

VOL. V für Joyce/PCW 8256/8512/9512** mit ausführlicher 

Bedienungsanleitung 

Best.-Nr.: 220 3“-Diskette 99,— DM* 

unverbindliche Preisempfehlung 

** PCW 9512 auf Anfrage 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

— DMV-verlag • Postfach 250 • 3440 Eschwege — 



















Funktion: Grafikprogramm zum Erstellen von hochauflösenden Grafiken, 
welche in eigene Programme eingebunden werden können sowie deren 
Ausgabe auf dem JOYCE-Drucker, 

Leistungsumfang: Der mitgelieferten Diskette können sie alle zum Arbei¬ 
ten mit dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
Pascal-Programmierer wird auch der Programmtext mitgeliefert. 

Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei¬ 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen. 
Lösch- sowie Invertierfunktion sind in allen Bearbeitungsmodi aufrufbar 
Auch Texte können bei der Grobbearbeitung in das Bild gebracht werden 
Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk¬ 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver¬ 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 

VOL. IV für Joyce/PCW 8256/8512 mit 


VOL. IV für Joyce/PUW »zs>b/»aiz m 
ausführlicher Bedienungsanleitung 


Best.-Nr.:219 


3“-Diskette 


59,- DM* 

unverbindliche Preisemplehlung 


D M V - Angebot 

Praktische Textverarbeitung mit Joyce 

Ein Buch/Disketten-Paket. Der Autor Jürgen Sie- 
bert zeigt in diesem Buch Möglichkeiten der Text¬ 
verarbeitung auf, die Sie von LocoScript nicht er¬ 
wartet hätten... Von der Pike auf werden Sie an 
den Umgang mit Schablonen und Standardlayout 
herangeführt. Einige Abstecher führen Sie an¬ 
hand anschaulicher Beispiele an Textverarbeitung 
und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fort¬ 
geschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das Pro¬ 
gramm Wordstar 

- Aleatorische Poetik: Der Computer dichtet 
Auf Diskette: Über 50 Dateien mit Schablonen, Briefen, Postkarten, Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften, 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, _»« on • 

3"-Diskette Best.-Nr.401 UM 89,— 


B*6 


- 1. Feld-Tab 

-FEin BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen, Vor¬ 
drucken und Formularen. Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzelnen Funktionen, wie unter LocoScript gewohnt. Geben Sie Sei¬ 
tenlänge, Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweite, Schriftart und Text Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASClI-Datei in Feld-Tab eingelesen werden. 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor¬ 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 

2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 
grafische Anwendungen! Über ein Menü sind folgende Funktionen wählbar: 

- Balkendiagramme - Kurvendiagramme • Strichgrafik 
• Punktediagramme Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich¬ 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver¬ 
gleich mit wesentlich teurerer Software nicht zu scheuen! 

VOL.III für Joyce/PCW 8256/8512 zwei Disketten 
mit ausführlicher Bedienungsanleitung 


Best.-Nr.: 217 


3“-Diskette 


69, - DM' 

unverbindliche Preisemplehlung 


SUPERdat 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. 
Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feld¬ 
namen und -längen sowie die Lange des Suchbegriffs voreinstellen 
können. 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf- Die Gesamt¬ 
länge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion 
für SUPERdat zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B mit RPED erstellt) werden automatisch vom Anwender vorausge¬ 
wählte beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger 
Stelle eingefügt Weiterhin können 30 beliebige Datensätze in eine für Lo¬ 
coScript lesbare Datei umgewandelt werden. 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk¬ 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 

VOL.II für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 

Best.-Nr.: 216 3“-Diskette 49, - DM* 

unverbindliche Preisemplehlung 


1. Der Character-Designer 

Funklion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 
8512 und deren Darstellung am Bildschirm! Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er¬ 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 

CRAZY, ORIGINAL. LOCCHAR und SCRIPT sind mitgelieferte Zeichensät¬ 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter. 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate. 

2. MGX 

Funktion: Grafische Darstellung von mathematischen Funktionen und be¬ 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfü¬ 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die¬ 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden. 

VOL.I für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 

Best.-Nr.: 215 3“-Diskette 59,-DM* 

unverbindliche Preisemplehlung 


Joyce 

Bücher-Kiste 


Aus dem Data Becker-Angebot 

Das Große LOGO-Buch zu CPC und Joyce 

LOGO kann mehr, als Sie denken. LOGO ist heute eine anerkannte Sprache 
bei vielen ehrgeizigen Programmprojekten. Das reicht bis hin zur Erstellung 
von Kl-Programmen. Hier das Buch für CPC- und Joyce-Besitzer, die viele Vor¬ 
teile dieser Sprache kennenlernen wollen. Um nur einige Stichworte zu nen¬ 
nen: Listenverarbeitung, Prozeduren, Rekursionen. Sortierroutinen. Masken¬ 
generator. Nutzen Sie diese Sprache für Ihre eigenen, ehrgeizigen Programm¬ 
ideen. 

410 Seiten Best.-Nr. 417 DM39, — * 

Das große Joyce-Buch 

Von der Textverarbeitung zum Programmieren - das bietet Ihnen das große 
Joyce-Buch. Hier werden alle Themen abgedeckt, die für Joyce-Nutzer inter¬ 
essant sind. Spezielle Anwendungen mit LogoScript, Personalisieren des Sy¬ 
stems mit CP/M. Multiplan aut dem Joyce, Uhr in BASIC, Grafikprogrammie¬ 
rung in LOGO und viele andere interessante Themen warten auf Sie im gro¬ 
ßen Joyce-Buch. 

418 Seiten Best.-Nr. 418 DM59,- 

Programmierwissen pur im Westentaschenformat 

DM 29,80* 

DM 19,80* 


Führer zum Joyce 

Best.-Nr. 450 
Führer zum CP/M 

Best.-Nr. 452 


Joyce für Einsteiger 

Wer einen Joyce gekauft hat, der möchte schnell und effektiv mit diesem 
Rechner umgehen. Joyce für Einsteiger wird dieser Anforderung voll gerecht. 
Von Kleinigkeiten, wie dem Anschluß des Gerätes oder dem Kopieren der Sy¬ 
stemdiskette bis hin zur optimalen Arbeit mil LocoScript finden Sie alles Not¬ 
wendige. Dazu eine kleine Einführung in BASIC und LOGO und natürlich in 
das Betriebssystem von CP/M-Plus. 

248 Seiten Best.-Nr. 453 DM 29,- 

Aus dem Franzis Verlag-Angebot 

Den Joyce programmieren 

Der Autor hat es sich zur Aufgabe gemacht, den Joyce als vollständigen Com¬ 
puter zu beschreiben. Er vermittelt dem Joyce-Besitzer eine Menge interes¬ 
santer und nicht alltäglicher Kenntnisse. Außerdem ist das Buch angefüllt mit 
Programmlistings, die für den fertigen Einsatz konzipiert sind Aus diesen Li- 
stings lassen sich zahlreiche ausgefeilte Programmtricks entnehmen. Der Auf¬ 
bau und die Bedienung des CP/M-Betriebssystems werden ebenfalls für den 
Joyce-Anwender, der sich nicht mit einfacher Textverarbeitung begnügen will, 
behandelt. Insgesamt stellt das Buch eine interessante Programmierliteratur 
für den technisch interessierten Joyce-Eigner dar. 

ca. 160 Seiten Best.-Nr. 425 DM 38,- 

Aus dem Hüthig-Verlag-Angebot 

Joyce - Das Praxisbuch zur Textverarbeitung 

Dieses Buch füllt einerseits die Lücken, die die zum Joyce milgelieferten 
Handbücher noch offen gelassen haben, und gibt andererseits viele Tips zur 
praktischen Arbeit mit LOCO-SCRIPT 

Sie erfahren, wie man Briefköpfe erstellt. Formulare ausdruckt, eine Phrasen¬ 
datei anlegt, mit dem Drucker kleine Firmen-Logos erstellt oder die verschie¬ 
denen LOCO-SCRIPT-Optionen effektiver nutzt. So kann das offensichtlich 
fehlende Mail-Merge doch mit Hilfe eines kleinen BASIC-Programms nach¬ 
empfunden werden. Zahlreiche Hardcopies und eine Übersicht sämtlicher 
LOCO-SCRIPT-Menüs mit den zugehörigen Untermenüs helfen sowohl Neu¬ 
lingen als auch »alten Hasen« gleichermaßen. 

125 Seiten, Best.-Nr. 419 DM 35, — * 

* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 3,- DM 
bzw. für das Ausland 5.- DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarto. 
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I PC-Trickkiste 


In die Trickkiste geschaut 

Tips und Tricks für die PCs 

Sicherlich haben Sie einigermaßen erstaunt auf die neue PC-Rubrik ge¬ 
schaut, die ihr Gesicht etwas verändert hat. Wir wollen Ihnen hier Tips und 
Kniffe beim Programmieren zeigen, die Ihnen helfen sollen, Ihren Wissens¬ 
stand zu vertiefen. 


Als kleine Einstimmung bringen wir 
Ihnen eine Unterroutine, die Sie gerne 
auch in eigenen Programmen einsetzen 
können. Um es vorwegzuriehmen, die 
Routine erhebt nicht den Anspruch, das 
Non-Plus-Ultra der BASIC-Program- 
mierung zu sein, sondern sie soll Sie, 
liebe Leserinnen und Leser, dazu ani¬ 
mieren, sich selbst einmal an die Pro¬ 
grammierung solcher kleinen Routinen 
zu wagen. 

Unsere Unterroutine beginnt mit dem 
Label LAUFSCHRIFT, alles andere 
ist schmückendes Beiwerk und kann 
weggelassen werden (ein bißchen Ei¬ 
genlob in Ehren kann niemand... 
usw.). Experimentieren Sie ruhig ein¬ 
mal, Sie werden sehen, daß sich selbst 


mit wenigen Programmzeilen recht 
nützliche Programmteile programmie¬ 
ren lassen. 

Programmieren Sie gerne? 


LABEL Programmeinsendung: 
PRINT Programm 

PRINT Tip_oder_Tricks 

INPUT DMV-Verlag 
GET money 

GOTO Programmeinsendung 


Wie finden Sie dieses Programm? Es 
kann 'Ihr’ Programm werden, wenn 
Sie uns Ihre selbstgeschriebenen Pro¬ 


gramme einsenden. Sie verstehen den 
Sinn im Augenblick nicht? Dann lassen 
Sie uns das Programm näher erklären. 

Wir suchen für die Trickkiste Tips 
und Tricks in BASIC-2, Assembler 
oder Turbo Pascal sowie Anwen- 
dungs- und Spielprogramme, die 
möglichst in BASIC-2 geschrieben 
wurden (falls Sie das ultimative Ac¬ 
tionspiel oder die Datenverarbeitung 
des Jahrhunderts in einer anderen 
Sprache geschrieben haben, hat es 
auch eine Chance als Bonuspro¬ 
gramm für die DATABOX). Wenn 
Sie so etwas auf Lager haben, dann 
heißt es 

Einsenden an die PC Amstrad. 

Na ja, ’GET money’ dürfte wohl je¬ 
dem klar sein, Sie sollen sich die Ar¬ 
beit ja nicht umsonst gemacht haben. 
Jeder angenommene Beitrag wird 
nach Veröffentlichung entsprechend 
honoriert. 

Nun, alles verstanden? Dann nichts wie 
hingesetzt und das letzte aus dem PC 
1512/1640 herausgeholt. Vielleicht 
stehen Sie ja auch bald als Autor an die¬ 
ser Stelle? 

Ob) 


CLEAR RESET 
FOR n=l TO 6 
WINDOW OPEN:WINDOW FULL 
READ text$ 

GOSUB laufschrlft 

NEXT n:FOR z=l TO 30:NEXT z:END 

DATA "PC AMSTRAD- Leser wissen mehr!!","Darum PC A 
MSTRAD International lesen.“,"Hier erfahren Sie al 
les über CPC.PC und PCW( JoycePC- AMSTRAD brin. 
gt Programme, News, Hardware.","Tolle BASIC2- Prog 
ramme, für alle, die Ihren PC richtig nutzen wolle 
n. " 

DATA "PC AMSTRAD International— hier liegen Sie r 
ichtig ! " 


LABEL laufschrift: 

CLS:1auf$=text$:zei1e=15:spa1te=70:pz = 0:mz=LEN(1 au 
f$):f1a g = 0 
LABEL posit: 

LOCATE spalte;zeile 

IF f1ag = 0 THEN PRINT LEFT$(1 auf$,pz) ;" " 

IF f1ag=I THEN PRINT RIGHT$(1 auf$,mz);" " 

IF flag=0 THEN pz=pz+l:IF pz=mz THEN flag=l 

IF flag=1 AND spalte=l THEN mz=mz-l:IF mz=-l THEN 

RETURN 

spalte=spalte-1:IF spalteil THEN spalte=l 
FOR zeit= 1 TO 40:NEXT zeit:GOTO posit 


Lupenrein 

Mikroschrift für den Drucker 

Texte schreiben ist keine Kunst, sofern man über eine entspechende Text¬ 
verarbeitung und über einen Drucker verfügt. Nun gibt es aber Fälle, bei 
denen man den eingegebenen Text gerne in kleinerer Form haben will, und 
da beginnt die Schwierigkeit. Entweder man eilt zum nächsten Kopierer, 
der irgendwo im Umkreis von sieben Meilen steht - oder man benutzt 
MicroPrint. 


Das Programm MicroPrint ist in der 
Lage , einen gewöhnlichen ASCÜ-Text 
in miniaturisierter Form und in einer 
hervorragenden Druckqualität (ent¬ 
spricht etwa NLQ auf einem 9-Nadel- 
Matrixdrucker) zu Papier zu bringen. 

Diese Ausdrucke kann man nicht nur 
als Gag verwenden (Schüler wissen 
diese Art des Textausdrucks besonders 


zu schätzen), sondern auch dann, wenn 
besonders lange Texte in möglichst 
komprimierter Form weiterverwendet 
werden sollen. Um einen Text in dieser 
Form auszudrucken, braucht man fol¬ 
gende Hardware: 

— IBM PC oder kompatiblen (also un¬ 
seren guten alten AMSTRAD PC 
1512/1640), 


— beliebige Grafikkarte, 

— einen grafikfähigen Drucker sowie 
den entsprechenden Treiber für GEM 
(das Programm wurde auf einem IBM- 
und EPSON-kompatiblen 9-Nadel- 
Drucker getestet.) 

— mindenstens ein Diskettenlaufi\’erk 
Die Softwareanforderung sieht so aus: 

— GEM-Benutzeroberfiäche 

— BASIC-2 

— passende Druckertreiber 
(EPSH*.FNT) 

Zur Bedienung des Programnies 

Das Programm wird wie jedes BA- 
SIC-2-Programm geladen und gestar¬ 
tet. Nach einer kurzen Erklärung der 
Funktion des Programmes wird man 
nach einem Tastendruck gebeten, die 
GEM-Paint-Diskette in das Laufwerk 
einzulegen, von dem aus GEM geladen 
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wurde (wird MicroPrint von einer 
Festplatte gestartet, auf der sich auch 
GEM befindet, kann man hier direkt im 
Programm weitergehen). Nach einem 
wiederholten Tastendruck werden die 
Schriften für den Drucker geladen, und 
man wird aufgefordert, die Diskette, 
auf der sich der Text befindet, der ver¬ 
kleinert ausgegeben werden soll, in ein 
beliebiges Diskettenlaufwerk zu schie¬ 
ben. 

Danach erscheint ein Fenster, das zur 
Auswahl des Textes dient. Die Funk¬ 
tionsweise müßte jedem, der GEM ein¬ 


mal genutzt hat, geläufig sein. Nach¬ 
dem man den Text ausgewählt hat, 
wird man gefragt, ob man ein Fenster 
während des Druckvorganges einge¬ 
blendet haben möchte, in dem der Text 
auch auf dem Monitor erscheint. Nach 
Beantwortung dieser Frage startet der 
Druckvorgang. Wenn dieser beendet 
ist, wird man gefragt, ob man noch ei¬ 
nen Text ausdrucken möchte. Wenn ja, 
dann startet das Programm von neuem, 
wenn nicht, stoppt das Programm. 

Die Funktionsweise ist sehr einfach. 
Von der GEM-Paint-Diskette werden 


Druckerschriften geladen. Einige von 
diesen Schriften sind kleiner, als die 
normale NLQ- (oder auch LQ-) 
Schrift. Eine dieser Schriftarten (Swiss 
07) wird nun zum Ausdruck des Textes 
benutzt. Dies ist das einzige Geheimnis 
des ganzen Programmes. Das Pro¬ 
gramm wurde übrigens auf einem PC 
1640 mit monochromen Monitor und 
Hercules-kompatibler Karte geschrie¬ 
ben. Der Ausdruck wurde von einem 
DMP 3160 übernommen. 

(Thomas Mertens/jb) 


*********************************** 


* * 

* MicroPrint * 

* * 

* Written by Thomas Mertens * 

* * 


1 *********************************** 

' Einrichten der Fenster 

CLOSE WINDOW 3 
CLOSE WINDOW 4 
FOR 1=1 TO 12 

CLOSE #1 « 

NEXT 1 

OPEN #1 WINDOW 1 

SCREEN #1 GRAPHICS XUSABLE-30 FIXED , YUSABLE-30 F 

IXED INFORMATION OFF 

WINDOW #1 TITLE "MicroPrint " 

WINDOW #1 FULL 
WINDOW #1 PLACE 10,5 
WINDOW #1 OPEN 
STREAM #1 

’ ** Intro ** 

LABEL Intro 

GOSUB ueberschrift 

PRINT AT(2;06) "Mi t Hilfe des Programmes ";:SET EFF 
ECTS(&x0000100):PRINT "MicroPrint ":SET EFFECTS OF 
F 

PRINT AT(2;08)“können Sie gewöhnliche ASCII-Texte 
verkleinert 

PRINT AT(2;10)"und in hervorrag ender Druckqualität 
auf dem 

PRINT AT(2;12 ) "Drucker ausgeben." 

GOSUB warte 

1 *** Hauptprogramm *** 

GOSUB ueberschrift 

PRINT AT(2;06)"Bitte legen Sie die gelbe " 

PRINT AT(2;08) "GEM-Paint Diskette in das Laufwerk, 

PRINT AT(2;10)"von dem Sie GEM aus geladen haben." 

GOSUB warte 

OPEN #12 DEVICE 2) 

GOSUB ueberschrift 

PRINT AT(2;06)"Bitte legen Sie die Diskette,auf de 
r “ 

PRINT AT(2;08)"sich der Text befindet,ln ein belie 
biges" 

PRINT AT(2; 10)"Laufwerk ein." 

GOSUB warte 

s = SE LECTOR “ 

IF 800 THEN GOTO ende 

OPEN #6 INPUT SELPATH$+SELFILE$ 

SET #12 FONT (2) 

SET #12 POINTS (07) 


Listing Lupenrein 


windOw_ask=ALERT 3 TEXT "Wollen Sie , daß der Text 
auch auf","dem Monitor ausgegeben wird ? " BUTTON 
RETURN "Ja"," Nein " 

IF window_ask=l THEN GOSUB window_2 

WHILE NOT(EOF(# 6)) 

LINE INPUT #6 , satz$ 

PRINT #12 , satz$ 

IF window_ask=l THEN PRINT #2,satz$ 

WEND 

CLOSE #6 
CLOSE #12 
CLOSE #2 

LABEL ende 

st=ALERT 3 TEXT "Wollen Sie das Programm "."verlas 
sen ? " BUTTON RETURN "Ja","Nein" 

IF st=l THEN END 
IF st=2 THEN GOTO intro 

' ** Unterprogramme ** 

END 

LABEL ueberschrift 
CLS 

SET FONT (2) 

SET POINTS(36) 

SET EFFECTS OFF 

PRINT AT(2;3)"MicroPrint ";CHR$(190); 

SET POINT S ( 14 ) 

PRINT "Written by T.Mertens" 

SET POINT S(18) 

RETURN 

LABEL warte 

SET POINTS(14) 

SET EFFECTS OFF 

PRINT AT(31;20)"Bitte Taste drücken !" 

REPEAT 

a$=INKEY$ 

UNTIL a$ < >"" 

RETURN 

LABEL w1ndow_2 

• *** Einrichten eines zweiten Fensters *** 

OPEN #2 WINDOW 2 

SCREEN #2 GRAPHICS 640 FIXED,200 FIXED INFORMATION 
OFF 

WINDOW #2 TITLE "Text-Window" 

WINDOW #2 FULL 
WINDOW #2 PLACE 80,40 
WINDOW #2 OPEN 
SET #2 FONT (1) 

SET #2 POINTS (08) 

RETURN 


Listing Lupenrein 
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Apfelmännchens 

Miniversion 

Fraktale in BASIC-2 

Seit der Zeit, als man zum ersten Mal erkannte, was 
eine relativ simple mathematische Formel auf dem Mo¬ 
nitor als Grafik erzeugen kann, hat diese Methode der 
Unterhaltung die Programmierer der Welt nicht mehr 
losgelassen. Damit Sie auch etwas zum Ansehen haben, 
bringen wir hier an dieser Stelle eine Grafikroutine in 
BASIC-2 — aber auch zum Ändern, Probieren oder 
Verbessern. 



Abbildung I: Unser kleines BASIC-2-Programm erzeugt frakiale Grafiken 
mit bis zu 16 Farben auf Ihrem PC 


“APFELMAN.BAS“ ist ein einfaches BA- 
SIC-2-Programm, das ein Apfelmännchen 
bei Ausnutzung aller 16 Farben des 
“PC 1512“ in verschiedenen Auflösungen 
errechnet. Es ist extrem einfach und kurz 
gehalten und soll so zum Experimentieren 
mit der Fraktalforme] einladen. Der Pro¬ 
grammteil, der die Grafik berechnet, ist 
klar vom Rest getrennt und läßt sich da¬ 
durch beliebig erweitern (z.B.: 3D-Effekt, 
usw.) 

Nach dem Starten des Programms wird ge¬ 
fragt, ob überhaupt Eingaben gemacht wer¬ 


den sollen oder ob man das Programm wie¬ 
der verlassen möchte. Hat man sich durch 
den entsprechenden Anfangsbuchstaben 
für die Wertcingabc entschieden, fragt das 
Programm den Benutzer nach den verschie¬ 
denen Parametern, die die Grafik be¬ 
stimmen. 

Anschließend beginnt das Programm mit 
dem Bildautbau, wobei es die Eingaben 
einfach überschreibt. Der Bildaufbau kann 
durch eine beliebige Taste beendet werden. 
Nach der “READY“-Meldung kann durch 
eine weitere beliebige Taste die Werteinga¬ 


be aufgerufen werden, die dann wieder 
fragt, ob man das Programm verlassen 
möchte oder ob man mit neuen Werten fort¬ 
fahren will. 

Das Zeichnen des Bildes beansprucht eini¬ 
ge Zeit für sich, Eigner eines mathemati¬ 
schen Co-Prozessors sind da schon im Vor¬ 
teil. 

Aber wie schon gesagt, vielleicht finden 
Sie ja eine Möglichkeit, das Bild schneller 
aufzubauen, probieren Sie es doch mal. 

(Christian Sonderleittner/jb) 


REM 

********************************************** 

************************* 


REM 

*** 

***# 


REM 

**# 

Prog ramm 

: Apfe1mam.bas 



**** 


REM 

**# 

Sprache 

: Basic2 



**** 


REM 

*** 

Auto r 

: Christian Sonderl 

eittner 

**** 


REM 

**# 

Datum 

: Februar 1989 



***# 


REM 

*** 

**#* 



REM ********************************************** 
************************* 


95) : ",xl 

XNPUT AT(1S; 7)"x-We rt maximal 

95) : ",xh 

INPUT AT(18; 9)"Y-Wert minimal 
35) : ",y1 

INPUT AT(18;11)"y-Wert maximal 
55) : ",yh 
SET COLOR(15) 

INPUT AT(18;14)"Auflösung 
) : “.aufloes 
INPUT AT(18;16)"Schritte 
) : ",ite ra 

INPUT AT(18;18)"Entfernung v. Nullpunkt 
) : ".tiefe 

INPUT AT( 18;20)"Anzahl Farben 
5 ) : ".palette 


(z.B.: 
(z.B.: -1. 
(z.B.: 

(z.B.: 5 

(z.B.: 12 
(z.B.: 1 

(maximal 1 


REM ****** Windows ******************************* 
************************* 


REM ****** Berechnung des Fraktals *************** 
************************* 


CLOSE #1:OPEN #1 WINDOW 1 

SCREEN #1 GRAPHICS 640 FIXED.180 FIXED 

USER #1 SPACE XACTUAL.YACTUAL 

WINDOW FULL:WINDOW OPEN:WINDOW TITLE "Apfe1männche 
n " 

OPTION TRAP ON 

REM ******* Standarwerte ************************* 
************************* 

LABEL wertdef 
CLS:CLEAR 

PRINT CO LOR(2) AT(18;3)"Werte: ("; 

PRINT CO LOR(1)"E"; 

PRINT COLOR(2)"ingeben oder Programm 
PRINT CO LOR(1)"V" ; 

PRINT C0L0R(2)"erlassen ?)" 

REPEAT:tast$=UPPER$(INKEY$):UNTIL tast$="E" OR tas 
t$="V" 

IF tast$="V" THEN END 
SET CO LOR(4) 

INPUT AT(18; 5)"X-Wert minimal (z.B.: -1. 


Listing Apfelmann 


ho r=(xh-x1 ) /XACTUAL 
ve rt=(y h-y1)/YACTUAL 

FOR xi= XACTUAL-aufloes TO 0 STEP- aufloes 
FOR y1=YACTUA L-au f1 Oes TO 0 STEP-aufloes 
p=xl+xi*ho r 
q = yl+yi*ve rt 
schritte=0:x=0:y=0 

WHILE (x*x+y*y <= tiefe) AND (schritte <> 

itera) 

xalt=x 
x=x*x-y*y+p 
y=2*xalt*y+q 
schritte=schritte+l 
WEND 

BOX XACTUAL-xi ;((YACTUAL-yi )- auf1oes),auf1oe 
aufloes+1 FILL WITH 8 COLOR (schritte MOD palette) 
IF INKEY$< > "" THEN GOTO zwischenstop 
NEXT yi 
NEXT xi 

LABEL zwischenstop 
PRINT AT(1;1)"Ready" 

REPEAT:UNTIL INKEY$<>"" 

GOTO wertdef 


Listing Apfelmann 


| 
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Entscheidungshilfe 

Wie man in BATCH-Dateien per 
Tastendruck auswählt 

BATCH-Dateien haben den großen Vorteil, immer wiederkehrende DOS- 
Operationen zusammenzufassen und schnell auszuführen. BATCH-Dateien 
haben den Nachteil, nicht auf Tastendruck zu reagieren -jedenfalls bis 
jetzt. 


Jetzt gibt es nämlich eine Möglichkeit, 
durch Tastendruck innerhalb einer 
BATCH-Datei eine Auswahl vorzu¬ 
nehmen. Wie dies im einzelnen ge¬ 
schieht, können Sie anhand des Li- 
stings 2, einer Test-BATCH-Datei, 
leicht feststellen. 

Erklärung zu 
WHATCHAR.COM 

Mit WHATCHAR lassen sich 
BATCH-Dateien komfortabler gestal¬ 
ten. Mit dieser Routine kann die Tasta¬ 


tur auch von Stapeldateien aus abge¬ 
fragt werden. Dazu müssen nur die als 
gültig geltenden ASCII-Codes überge¬ 
ben werden. 

Die Eingabe kann anhand von ER- 
RORLEVEL überprüft werden. Die 
Syntax des neuen DOS-Kommandos 
sieht so aus: 

A> WHATCHAR [ASCU-Code(s)] 
Ein Beispiel: Geben Sie WHATCHAR 
ABC ein, hierbei werden nur die Ta¬ 
sten ’A’,’B’ und ’C’ zugelassen. Bei 
der Abfrage von ERRORLEVEL gilt 
dann: 


Taste A gedrückt: ERRORLEVEL = 1 
Taste B gedrückt: ERRORLEVEL = 2 
Taste C gedrückt: ERRORLEVEL = 3 
Falls Sie noch Fragen haben sollten, 
schauen Sie sich unsere BATCH-Datei 
an, WHAT.BAT demonstriert die 
Funktionsweise von WHAT¬ 
CHAR. COM. Übrigens braucht die 
Groß-/ Kleinschreibung nicht beachtet 
zu werden, da WHATCHAR.COM al¬ 
les in Großbuchstaben umwandelt! 
Noch ein Hinweis zum Programm: 
Wie unschwer zu erkennen ist, handelt 
es sich dabei um ein Assembler-Pro¬ 
gramm. Es kann mit fast jedem Assem¬ 
bler (nach kleinen Änderungen) einge¬ 
geben werden. Die Zeilennummern 
dürfen allerdings nicht mit eingegeben 
werden, sie dienen ausschließlich als 
Orientierungshilfe. 


Für diejenigen, die sich an die Assem¬ 
blerprogrammierung nicht so richtig 
heranwagen, bieten wir auf der DATA- 
BOX zu diesem Heft das lauffähige 
COM-File an. 


(Hans Joachim Kiefer / jb) 


X 

TITLE WHATCHAR.ASM 



28 

mov dl,7 

;Piepst 

2 




on 



3 

pr strlng equ 9 



29 

int dos 

;ausgeb 

4 

dos equ 21 h 



en 



5 




30 

mov s1,0080h 

;und ne 

6 

.MODEL SMALL 



ue Eingabe 



7 




31 

jmp short parm ok 






32 found: 

mov si,0080h 

; Ad ress 

8 

.CODE 



e mit Zeichenanzahl 


9 

ORG 100h 



33 

neg c 1 

;CL neg 

10 

maln: mov si, 0080 h 

;Zeiche 


1 eren 




nanzahl ln Kommandozeile 



34 

add c1,[si] 

;tatsäc 

11 

cmp byte ptr[si],0 

; Zeiche 


hliche Nummer des Zeichens in CL 



nzahl = 0 ? 



35 

xchg al,cl 

;und na 

12 

jne parm ok 

;neln , 


ch AL speichern, für ERRORLEVEL 



dann Zeichen übergeben 



36 ende: 

mov ah,4ch 

;Prog ra 

13 

xor al,al 

;sonst 


mm beenden 




=> ERRORLEVEL 0 



35 int dos 



14 

jmp short ende 

;Prog ra 


36 j- 




mm beenden 






15 

parm ok: inc si 

; Ze1 che 


37 end maln 




n ln Kommandozelle 






16 

mov ah,8 

;Input 






Char 






17 

Int dos 



ECHO OFF 



18 

and al,223 

;auf Gr 


CLS 




oßschrift forcieren 



ECHO BITTE 'A‘, 

B' ODER 'C' EINGEBEN ! 


19 

mov cl.byte ptr[si-l] 

;Zeiche 


WHATCHAR ABC 




nanzahl nach CL laden 



IF ERRORLEVEL 3 

GOTO DREI 


20 

xor ch,ch 

;CH lös 


IF ERRORLEVEL 2 

GOTO ZWEI 



chen 



IF ERRORLEVEL 1 

GOTO EINS 


21 

mov dl,[si ] 

;Char h 


GOTO CTRLC 




ol en 



': DREI 



22 

and dl,223 

; auf Gr 


ECHO SIE HABEN 

«C» GEDRÜCKT 



oßschrift forcieren 



GOTO ENDE 



23 

cmp d 1 ,al 

; Zeiche 


: ZWEI 




n aus Kommandozei1e=Eingegebenes ? 



ECHO SIE HABEN 

«B» GEDRÜCKT 


24 

je found 

; j a, da 


GOTO ENDE 




nn gültig 



: EINS 



25 

Inc si 

; sonst 


ECHO SIE HABEN 

«A» GEDRÜCKT 



Zeiger erhöhen 



GOTO ENDE 



26 

loop @b 

;und su 


:CTRLC 




chen bis CX = 0 



ECHO. 



27 

mov ah,2 

;al1 es 


ECHO SIE HABEN 

ABGEBROCHEN (CTRL+C) 



durchsucht ohne Erfolg 



: ENDE 



Listlng 

Whatchar 



Listing Whatchar 
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1 ~ PC-Trickkiste 


ECHO mit Pfiff 

ECHO-Texta usga ben 
auf neue Art 

Bei den ECHO-Kommandos können Informationen in¬ 
nerhalb einer BATCH-Datei oder im DOS auf den Bild¬ 
schirm ausgegeben werden. An sich eine gute Sache, 
wenn es nicht immer so eintönig wäre. Gegen Langewei¬ 
le bei der Bildschirmausgabe bieten wir Ihnen jetzt 
OUTECHO. 



<BTB> 


-niR> 30.01 !39 16 <<■ 
: ft« ze.os % 32. 

EXf, 61512 15.iM.37 MH« 

RSC 5696 ie.01 3? 15.33g 

r 13312 26.5S.3b S5.:::.@ 

rast HS2 28.at .86 1?.2 sB 

? ättelteal 1SMZ566 lutes frei 


Heiterer Text kann nieder nornal oder in arlircren Partien, oder auch 
blinkend dargestellt uerden. 


it DtiTICHO lassen sich auch die DOS - Kommando- Ergebnisse fresse 

r; r. ■ 


Menlragerfrezeichiuing in l auf»erk 
‘Jer:e ichnis von C AöEtlBOOTfliHH 


nat xeinen Namci 


i.CWC.1 


W5Z 


Abbildung I: Dieser Text wurde als BA TCH-Datei aufgerufen 


Mit OUTECHO können die ANSI-Es- 
cape-Sequenzen unter DOS genutzt 
werden. Es ist nun nicht mehr notwen¬ 
dig, auszugebende Sequenzen in Text¬ 
dateien zu schreiben und diese dann mit 
dem TYPE-Kommando auf den Bild¬ 
schirm zu geben. Es bedeutet, daß nun 
Stapeldateien, die ANSI-Sequenzen 
benutzen, nicht mehr von dem Vorhan¬ 
densein der dazugehörenden Textdatei¬ 
en abhängig sind, um 'laufen’ zu 
können. 

Die Syntax des dazugehörenden Kom¬ 
mandos lautet: 

A> OUTECHO [beliebiger Text und 
Sequenzen] 

Die Escape-Sequenz wird mit dem 
Hochpfeil ’t’ und der eckigen Klam¬ 
mer ’[’ eingeleitet (zu erreichen durch 


gleichzeitiges Drücken von ALT und 
91 auf der numerischen Tastatur, 
’T[’= Code 27; ESC). Zur besseren 
Anschauung ein Beispiel: 

OUTECHO t[[7m Dieser Text wird 
invers dargestellt T[[0m 

OUTECHO t[[2J 

Die zweite OUTECHO-Sequenz löscht 
den Bildschirm. Mit OUTECHO 
t[[5m wird die Textausgabe unter DOS 
ab sofort blinkend ausgegeben, es las¬ 
sen sich also damit vielerlei Effekte er¬ 
zielen. 

Noch eine Anmerkung: Es können be¬ 
liebig viele Escape-Sequenzen einge¬ 
leitet werden. Die Anzahl wird nur 
durch die maximale DOS-Kommando- 


zeile (127 Zeichen) begrenzt. Wird 
OUTECHO ohne Übergabe aufgeru¬ 
fen, so wird der zuletzt angegebene In¬ 
halt der DOS-Kommandozeile ausge¬ 
geben. 

(Hans Joachim Kiefer/jb) 


Unser Programm ist in Assembler geschrie¬ 
ben und läßt sich ohne größere Änderungen 
an jedes Assemblerprogramm anpassen. 
Die Zeilennummern dürfen allerdings nicht 
mit eingegeben werden, sie dienen lediglich 
zur besseren Orientierung. Auf der DATA- 
BOX zu diesem Heft befindet sich übrigens 
das startfähige COM-File. 


1 title Ausgaberoutine Escape-Sequenzen 

2 ; 

3 code segment 

4 assume cs:code,ds:code,es:code 

5 org 100h 

6 start: jmp short main 

7 ; - 


8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


a buf 

equ 

0082h 

;Anfangsadresse 

DOS 

-Befehl szei 1 e 1 rr 

i PSP 



er 

equ 

13 

;Carlage-Return 


dos_int 

equ 

21h 

;OOS-Interrupt 


esc_code 

equ 

27 

;Code für Escape 


print char 

equ 

02h 

; Func.2 DOS-INT, 

Ze 

ichen ausgeben 




end_proc 

equ 

4ch 

;Prozess beenden 


escape proc 

; near 

;ESC ausgeben 


mov 

ah.print char 

;mit Funktion 2 

( DO 

S Interrupt 

21h) 




mov 

dl,esc code 

;Zeichencode 1n 

DL 

1 nt 

dos 

i nt 



ret 





escape endp 




* 


22 main: mov si,a_buf ;Startadresse der 

Befehlszel1e 


23 

mainO: 

mov dl,[si] 

;Zeichen nach DL 

24 


emp dl ,c r 

; Ist Zeichen = Ca 


rriage 

Return ? 


25 


je ende 

ija, dann Leerstr 


1 ng 



26 


emp dl,'“' 

;Hochpfei 1 ? 

27 


jne mainl 

; nein, dann keine 


Escape 

Sequenz 


28 


emp byte ptr[s1+l],' 

'l';Zeichen = ’[' ? 

29 


jne mainl 

;nein, dann keine 


Escape 

Sequenz 


30 


cal1 escape 

;sonst ESC ausgeb 


en und 



31 


add s 1,2 


32 


jmp short mainO 

iweiter prüfen 

33 

mainl: 

mov ah.print char 

; und auf Bi 1dschi 


rm 



34 


int dos_1nt 

;ausgeben 

35 


i nc si 

;Zeiger auf nächs 


tes Zeichen im PSP 


36 


jmp short mainO 

; und weiter prüfe 

37 

ende: 

mov ah,end proc 

;Programm beenden 

38 


int dos int 


39 


code ends 



9 



41 

end 

Start 



Lisling "ECHO" 


Listing 'ECHO* 
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Bildersammeln für GEM 

Das Shareware-Utility GEMCAP 

Die Amstrad-PCs 1512 und 1640 werden ja bekanntermaßen unter anderem 
mit GEM 2.0 und dem Zeichenprogramm GEM-Paint ausgeliefert und ha¬ 
ben damit manchen Konkurrenzprodukten doch einiges voraus. Gerade 
GEM-Paint ist ein durchaus annehmbares Programm, das zusammen mit 
der Maus schon allerlei Grafik-Abenteuer zuläßt. 


Nur: Alles selber machen kann man 
auch nicht, und außerdem ist ja nicht 
jeder gleich ein begnadeter Bilderma¬ 
ler. Also wäre es doch schön, noch an¬ 
derswo Nachschub zu bekommen, und 
sei es nur als Ausgangspunkt für eigene 
Weiterbearbeitung. Leider hat man 
aber mit GEMs eigenem “Snapshot“- 
Programm nur Zugang zu Bildern, die 
auch unter GEM-gebundenen Pro¬ 
grammen entstehen, nicht aber zu Gra¬ 
fiken aus Spielen oder anderen Pro¬ 
grammen, die direkt unter MS-DOS 
laufen. 

Hier schafft das Shareware-Utility 
“GEMCAP“ Abhilfe. Die Funktions¬ 
weise ist denkbar einfach: 

- Vor dem Start des Programms, aus 
dem Sie Grafiken “stehlen“ wollen, 
wird GEMCAP unter Angabe eines 
Pfades und Namens für die Abspeiche¬ 
rung der Bilder aufgerufen, z.B.: 
GEMCAP C: \ IMAGES \ GAME. IMG 
GEMCAP installiert sich daraufhin in 
der Größe von exakt 3856 Byte resi¬ 
dent im Speicher und harrt dort der 
Dinge, die da kommen sollen. Nun 


wird das DOS-Programm gestartet und 
die Grafik auf den Schirm gebracht. Je¬ 
desmal, wenn in diesem Zustand die 
linke Shift-Taste und <ALT> zusam¬ 
men gedrückt werden, speichert GEM¬ 
CAP den Bildschirminhalt im IMG- 
Format ab. Auch Text wird in Punkt¬ 
grafik verwandelt. Bei mehrfachen 
Aufrufen überschreibt GEMCAP nicht 
jedesmal die zuvor abgelegte Grafik, 
sondern legt mehrere Files an, die an¬ 
hand eingefügter Nummern später un¬ 
terschieden werden können. Mit ver¬ 
schiedenen Tonsignalen informiert 
GEMCAP während der Arbeit über 
den Erfolg oder das Mißlingen eines 
Schnappschusses. Nach Ende der Sit¬ 
zung kann das Programm durch Betäti¬ 
gung der rechten Shift-Taste zusam¬ 
men mit <ALT> bis zu einem Rest 
von 288 Byte wieder aus dem Speicher 
entfernt werden. 

Bilder im IMG-Format sind nicht nur 
für GEM-Paint verwendbar, sondern 
werden auch von vielen Desktop- 
Publishing-Programmen angenom¬ 
men. Angenehm fällt auf, daß die Ver¬ 


wendung von GEMCAP nicht zu ver¬ 
zerrten Grafiken führt — auch wenn 
Sie die Bilder, die in einer der CGA- 
Modi abgespeichert wurden, nachher 
z.B. im EGA-Modus weiterverarbei¬ 
ten, bleiben die Seitenverhältnisse er¬ 
halten, da das IMG-Format auch Infor¬ 
mationen über die ursprüngliche Pixel¬ 
größe der Grafik enthält. Ein engli¬ 
sches Info-File gibt darüber hinaus die 
Adressen für eigene Patchversuche be¬ 
kannt, mit denen die Größe des jeweils 
abgespeicherten Formats zusätzlich 
noch eigenen Bedürfnissen angepaßt 
werden kann, und liefert sogar ein 
komplettes Beispiel für die Halbierung 
der Bildgröße mittels DEBUG. 
GEMCAP “fotografiert“ Bilder im 
CGA-Modus und ist daher gerade für 
Benutzer der genannten Amstrad-PCs 
interessant. 

Probleme beim Einsatz gibt es eigent¬ 
lich immer nur dann, wenn ein Pro¬ 
gramm, aus dem Bilder entnommen 
werden sollen, Veränderungen an der 
Tastaturbelegung oder -abfrage duch- 
führt, so daß der “Auslöser“ von 
GEMCAP blockiert wird. 

“GEMCAP“ ist ein Sharewarepro¬ 
gramm, daß die Mühe der Bezahlung 
nach erfolgreichem Test (20 Dollar) 
durchaus wert ist. 

Ausgeliefert wird es zusammen mit an¬ 
deren Bildschirm-Hilfsprogrammen 
auf einer Sammeldiskette. 

Bezugsquelle: 

REDYSOFT Software GmbH 
Postfach 1261 
8150 Holzkirchen 
Diskette Nr. 9721 (Utilities) 

(Johannes Wiele/jb) 



Abbildung I: Das Spiel Tetris meldet sich mit diesem Screen auf dem Bild¬ 
schirm; ein kurzer Druck aufSHlFTund ALT.... 



Abbildung 2:. ..und kurze Zeit später kann man das Bild unter GEM-Paint 
wei t erb ca rbeiten 
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Montag hier, 
Dienstag da... 

Terminkalender 
für Geschäftstüchtige 


Man sollte es nicht glauben, aber die meisten verpatzten 
Gelegenheiten entstehen nur durch versäumte Termine. 
Damit Ihnen das nicht auch so geht, bieten wir Ihnen ei¬ 
nen Terminkalender unter BASIC-2 an. 





MOHAT: Aprd 1 

] $ 3115(39 : Hesse 1» Stuttgart 16 Uhr 30 Treffen tut H.J. 
? Sonntag •’ /Wi 

3 Montag : Program :ur Berechnung der intaktste» fertig?? 

4 Dienstag i Besuch aus Dortrnd 

5 Mittweh : Hiebt vergessen ! Hotline m 17 Uhr 
5 Donnerstag Maktiensschleß. 

) Freitag : Endlich nieder Vechemde"! 

$ Sanstag ; frei,- . 

3 Sonntag : frei 

10 Honta9 : Schon nieder Montag ■ 

11 Dienstag : Treffen mt H.L. fül neues Program verführen. 

1 1 ; (üttwen ; Büchemhnk mf emitert »erden 

113 Donnerstag: Heues Heft verfemten 

114 Freitag ; Hurra nieder Hochenende ..... .... 

; 15 Saitstag t frei ei. ..—... 


Mit dem Terminprogramm kann man 
seinen eigenen Terminkalender auf¬ 
stellen, speichern und ausdrucken. 
Haben Sie das Programm gestartet, so 
erscheint zuerst das Hauptmenü. Wol¬ 
len Sie einen neuen Monat beginnen, so 
drücken Sie die Funktionstaste ’F1\ Es 
erfolgt eine Abfrage über das Jahr und 
den neuen Monat, darauf wird die An¬ 
zahl der Tage und Wochentage berech¬ 
net. Der Computer zeigt die erste Mo¬ 
natshälfte auf dem Monitor an. Mit 
'Cursor hoch’ und 'Cursor ab’ kann 
man sich zwischen den Tagen bewe¬ 
gen. Möchte man eine Eingabe ma¬ 
chen, so drückt man 'Fl' und beginnt, 
die Termine einzutragen, die jeweils 
mit Betätigen der RETURN-Taste ab¬ 
geschlossen werden. Mit ’F2’ kann 
man die nächste bzw. die vorhergehen¬ 
de Seite editieren. Drückt man ’F3’, so 
gelangt man ins Hauptmenü zurück, 


wird aber vorher gefragt, ob man die 
Daten schon speichern will. 

Der Dateiname wird beim Speichern 
aus den ersten drei Buchstaben des Mo¬ 
nats und des Jahres zusammengestellt. 
Zuvor hat man noch die Möglichkeit, 
das Laufwerk zu wählen, in dem die 
Datei gesichert werden soll. Wählt 
man den Menüpunkt 'vorhandenen 
Monat editieren', so muß man auch zu¬ 
nächst das Jahr und den Monat einge¬ 
ben. Kann der Computer die Monats¬ 
datei nicht finden, so meldet er sich mit 
einem ALERT-Kästchen. Es erscheint 
dann wieder die Bildschirmmaske. 

Die eingeladenen Daten werden zu den 
entsprechenden Tagen gesetzt. Nun 
kann man nachschlagen oder hinzufü¬ 
gen. Mit ’F3’ gelangt man ebenfalls ins 
Menü zurück, auch hier fragt der Com¬ 
puter zuerst nach, ob die Daten gespei¬ 
chert werden sollen. Die Vorbereitung 


für das Ausdrucken der Termine ver¬ 
läuft ähnlich wie das Editieren, nur daß 
der Ausdruck auf dem Drucker erfolgt. 
Mit 'Maske drucken’ kann man eben¬ 
falls einen Monat zu Papier bringen, je¬ 
doch werden dabei hinter den Tagen 
keine Eingaben, sondern Linien ausge¬ 
druckt, so daß man die Termine mit ei¬ 
nem Stift eintragen kann. Das Pro¬ 
gramm wurde auf einem PC 1512 
MM/DD unter der BASIC-2 Version 
1.12 geschrieben. Angepaßt wurde es 
an einen DMP 2000. 

Bei Eingaben, die später ausgedruckt 
werden sollen, ist es besser, wenn man 
keine Sonderzeichen verwendet (z.B. 
ü,ä,ö,ß), sondern sie ersetzt (z.B. 
ue,ae,oa,ss), da es hierbei Probleme 
mit einigen Druckertypen geben 
könnte. 

(Thorsten Kasten/jb) 


REM ++++++++++++++++++++++ 


PRINT AT(33;18) EFFECTS(1) "Bitte wählen Sie : 

REM ++ Terminkalender ++ 


WINDOW CURSOR ON 

REM ++-+ + 


LABEL wähl 

REM ++ written in 01/89 ++ 


wähl=-1:WHILE wahl=-l:wahl=INKEY:WEND 

REM ++ by ++ 


IF wahl=315 THEN GOTO neuer monat 

REM ++ Thorsten Kasten ++ 


IF wah!=316 THEN GOTO monat editieren 

REM ++++++++++++++++++++++ 


IF wahl=317 THEN GOTO termin_drucken 

IF wahl=318 THEN GOTO maske drucken 

SCREEN »1 GRAPHICS 640 FIXED.200 FIXED INFORMATION 


IF wahl=319 THEN GOTO speichern 

ON 


IF wah1=324 THEN GOTO ende 

WINDOW OPEN:WINDOW FULL 

WINDOW TITLE "TERMINKALENDER vl.O" 

GRAPHICS CURSOR- 2 


GOTO wähl 

DIM termin$(31) 


'*******************iti 

LABEL neuer_monat 

WINDOW INFORMATION " 

'******************** 


neuen Monat erfassen" 

LABEL hauptmenue 


GOSUB eingabe jahr monat 

CLS:WINDOW INFORMATION " 


GOSUB anz tage 

Hauptmenue" 


GOSUB monat 

PRINT AT(30;5)"< FI > = neuer Monat“ 


seite =1 

PRINT AT(30;7)"< F2 > = vorhandenen Monat editie 


GOSUB var def 

ren' 

PRINT AT(30;9)"< F3 > = Terminausdruck" 

PRINT AT(30;11)"< F4 > = Maske ausdrucken" 


GOTO erste_seite 

PRINT AT(30;13)"< F5 > = Monat speichern" 


1 ********** 

PRINT AT(30;15 ) " < F10> = Ouit" 


LABEL erste_seite 

Listing Terminkalender 


Lisling Terminkalender 
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seite=l 


datumtag=x 

LABEL telll 


datum$ = STR$(datumtag) + +STR$(monat) + "-" + STR$(j ah 

anfang=l:tagel=4:tage2=INT(anzahl tage/2):tage3=an 


r ) 

zahl_tage-tage2 


RESTORE 3 

tag = an fang 


FOR 1=0 TO DATE(datum$) MOD 7 

GOSUB darstellung 


READ tag$ 

NEXT i 

RETURN 

1 ********** 



LABEL zweite Seite 


• ***** 

seite=2 


LABEL ueberschrlft 

LABEL tei12 


PRINT AT(5;2)"MONAT: ";monat$;" JAHR: "; 

tagel=4:tage2=anzahl tage:anfang=INT(anzahl tage/2 


jahr;" Seite: ";seite 

)+l:tag=anfang 


RETURN 

GOSUB darstellung 


'********** 

1 ***** 


1 DATA 1980,1984,1988,1992,1996,2000,2004,2008,201 

LABEL ei ngabe_jahr_monat 


2,2016,2020 

CLS 


2 DATA 1,"Januar",2,"Februar",3,"März“,4,"Apri1",5 

INPUT AT(10;5) Bitte geben Sie das Jahr ein (1980 
-2020) : ",jahr 

IF j ahr<1980 OR jahr>2020 THEN GOTO eingabe jahr 


,“Mai“,6,"Juni ", 7,"Juli",8,"August",9,"September", 

3 DATA “Sonntag "."Montag "."Dienstag ","Mit 

twoch ","Donnerstag","Frei tag "."Samstag 

monat 


INPUT AT(10;S) “Bitte geben Sie den Monat ein (1-1 


1 ********** 

2 ) : ",monat 


LABEL darstellung 

IF mon at <1 OR monat>12 THEN GOTO eingabe jahr mona 


sp=l7:y=4 

t 


CLS 

CLS:RETURN 


GOSUB ueberschrift 

PRINT 

1 ***** 


FOR x=anfang TO tage2 

LABEL anz_tage 


GOSUB tag 

IF monat=l OR monat=3 OR monat=5 OR monat=7 OR mon 
at=8 OR monat=10 OR monat=12 THEN anzahl tage=31 


PRINT " ";:PRINT USING "## ";x;:PRINT tag$;:PRINT 

IF monat=4 OR monat=6 OR monat=9 OR monat=ll THEN 


PRINT EFFECTS(2) STRING$(50, " . " ) 

anzahl tage=30 


LOCATE sp;y:PRINT EFFECTS(20) termin$(x) 

IF monat = 2 THEN GOSUB Schaltjahr 


y = y + l 

RETURN 


NEXT 

GOTO eingabe 

'***** 


RETURN 

LABEL Schaltjahr 

RESTORE 1 


' ********** 

FOR x — 1 TO 11 


LABEL eingabe 

REAO testjahr 


x=17 :y=4 

IF testj ahr = j ahr THEN anzahl_tage=29:RETURN 


WINDOW INFORMATION " Cursor hoch/runter=nächster T 

anzahl_tage=28 


ag F1=E1ngabe F2=nächste Seite F3=Menue" 

RETURN 


LABEL tastatur 

'****« 


LOCATE x;y 

wähl=-l:WHILE wahl=-l:wahl=INKEY:WENO 



IF wahl=328 THEN GOTO Cursor up 

RESTORE 2 


IF wahl=336 THEN GOTO Cursor down 

FOR x=l TO 12 

READ test_monat 

READ mon$ 

IF test monat=monat THEN monat$=mon$ 

NEXT 

RETURN 


IF wahl=315 THEN GOSUB input termin:GOTO tastatur 

IF wähl=316 AND seite= 1 THEN GOTO zweite Seite ELS 

E IF wähl=316 AND seite=2 THEN GOTO erste_seite 

IF wahl=317 THEN GOTO test_speiehern 

GOTO tastatur 




' ***** 


LABEL Cursor up 

LABEL tag 


y=y-1:IF y<4 THEN y=4 

Listing Terminkalender 


Listing Terminkalender 







Ist Ihr Programm der HIT ? 


FIBUPLAN - Buchführung für 
PC, JOYCE oder CPC 

Der DMV Verlag sucht ständig 


Einfaches Buchführungsprogramm auf der Basis einer doppelten Buchfüh- 

nach neuer, interessanter 

Software zur Aufnahme in 


rung. FIBUPLAN ist menuegesteuert und besitzt übersichtliche Eingabemas¬ 
ken zum Aufbau einer EDV-unterstützten Buchhaltung. 

unser Softwaresortiment. 


C 60 definierbare Konten (PC 80), 4-stellige Nummern 

O Kontenplan anzeigen, Kontostand errechnen 



o Ausdruck von Grundbuch und Kontenblättern 

Dabei ist es einerlei, ob Sie nun 


o bequem mit einem Laufwerk zu nutzen 

O FIBUPLAN Diskette und Anleitung nur 148,- DM 

ein Anwendungs- oder ein 


Versand p. Vorkasse (portofrei), Nachnahme (zzgl. 5 DM) 

Spielprogramm geschrieben haben. 


Fordern Sie jetzt unser aktuelles Info an (bitte Computertyp angeben). 

Der DMV Verlag bietet Ihnen sein 
Software-Know-How an! 


VAN DER ZALM-SOFTWARE 

Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 44 61/55 24 
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tag=tag-l:IF tag< anfang THEN tag=anfang 
GOTO Tastatur 

****** 

LABEL cursor_down 

y=y+l:IF se1te=l AND y>3+tage2 THEN y=3+tage2 
IF seite = 2 AND y>3+tage3 THEN y=3+tage3 
tag=tag+l:IF seite=l AND tag>tage2 THEN tag=tage2 
IF seite = 2 AND tag>an zahl_tage THEN tag=anzahl_tag 

e 

GOTO tastatur 

*********** 

LABEL input_termin 

LOCATE x;y 

SET EFFECTS(20) 

LINE INPUT "",te rmin$(tag) 

SET EFFECTS(0) 

RETURN 

'**»** 

LABEL var_def 

FOR 1=1 TO anzahl_tage 

termin$(i)="" 

NEXT 

RETURN 


********************** 

LABEL maske_drucken 
WINDOW INFORMATION " 

Maske drucken" 

GOSUB eingabe_jahr_monat 
GOSUB drucker_1nit 
FOR d=l TO anzahl_tage 
x=d 

GOSUB tag 
LPRINT form$; 

LPRINT doppe11$+" ";:LPRINT USING "## ";d;:LPR 

INT tag$+”: "; 

LPRINT doppelO$;:LPRINT STRING$(50,) 

NEXT 

FOR vorschub=l TO 10:LPRINT:NEXT 
GOTO hauptmenue 


********************* 

LABEL termin_drucken 
CLS:WINDOW INFORMATION " 

Termine ausdrucken" 

GOSUB eingabe_jahr_monat 

CLS:GOSUB laden 

GOSUB anz_tage 

GOSUB monat 

GOSUB drucker_init 

FOR x=l TO anzahl_tage 

GOSUB tag 

LPRINT form$; 

LPRINT doppel1$+" LPRINT USING "## ";x;:LPR 

INT tag$+": "; 

LPRINT doppelO$;:LPRINT termin$(x) 

NEXT 

GOTO hauptmenue 
'#**** 

LABEL drucker_1nit 

doppel1$=CHR$(27)+"G" 'Doppeldruck ein 

doppe10$=CHR$(27)+"H" 'Doppeldruck aus 

unterst reichenl$=CHR$(2 7) + "-"+CHR$(1) 'Unt 

erstreichen ein 

unterst reichenO$=CHR$(27) + "-"+CHR$(0) 'Unt 

erstreichen aus 

form$=CHR$(27)+"<" 'Druckkopf in Ausgangs 

ste11ung 

GOSUB druckertest 
GOSUB anz_tage 
GOSUB monat 
LPRINT:LPRINT , 

LPRINT TAB(15) 

LPRINT unterstre 1chenl$ + doppe11$; 

LPRINT "Terminausdruck fuer "+monat$+" "+STR$(jahr 

) 

LPRINT unterstreichen0$+doppe10$ 

LPRINT:LPRINT:LPRINT 
RETURN 


Llsting Terminkalender 



'***** 

LABEL druckertest 

ALERT 1 TEXT “Bitte Papier in den Drucker","1 egen 
und ON LINE schalten",“Wenn bereit >RETURN< . . . 

" BUTTON RETURN "0.K." 

RETURN 

1 ********** 

LABEL test_spe1ehern 

a = AL£RT 3 TEXT "Wollen Sie Ihre Daten",“sofort sic 
hern ??" BUTTON RETURN "Ja","Nein" 

IF a=l THEN GOTO speichern 
GOTO hauptmenue 

• ********** 

LABEL laufwerk 

a=ALERT 3 TEXT "Bitte wählen Sie ","das Laufwerk" 
BUTTON RETURN "A:","B:","C:" 

IF a=1 THEN 1w$="a:" 

IF a=2 THEN lw$="b:" 

IF a=3 THEN lw$="c:" 

ALERT 1 TEXT "Bitte die Datendisk i n " , " Lau fwe r k "+• 
lw$+" legen","Wenn bereit >RETURN< . . BUTTON R 
ETURN "O.K." 

dat$=lw$+STR$(jahr)+LEFT$(monat$,3)+".trm“ 

datei=6 

RETURN 


'******************** 
LABEL monat_editleren 
WINDOW INFORMATION " 
Monat edltiern" 

CLS 

GOSUB laden 
CLS 

GOSUB anz_tage 
GOSUB monat 
GOTO erste_seite 


********************* 
LABEL speichern 
CLS:WINDOW INFORMATION " 
Termine speichern" 
GOSUB 1 au fwe r k 
OPEN »datei OUTPUT dat$ 
FOR 1=1 TO anzahl_tage 
PRINT »datei,termin$(1> 
NEXT 

CLOSE »datei 
GOTO hauptmenue 


'******************** 

LABEL 1 ad en 
CLS 

GOSUB eingabe_jahr_monat 
GOSUB monat 
GOSUB laufwerk 
ON ERROR GOTO ladefehler 
OPEN »datei INPUT dat$ 
tag = 0 

WHILE NOT EOF(datei) 
tag=tag+l 

LINE INPUT »datei,termin$(tag) 

WEND 

CLOSE »datei 
RETURN 

****** 

LABEL ladefehl er 

ALERT 1 TEXT "Ladefehler . . ."."dieser Monat wurd 
e nicht (auf dieserDiskette) abgespeichert”,"We 
iter mit >RETURN < ..." BUTTON RETURN "O.K." 

CLOSE »datei 
GOTO hauptmenue 


********************* 

LABEL ende 

a=ALERT 1 TEXT "Wollen Sie das Programm","wirklich 
beenden ??" BUTTON RETURN "MENUE","ENDE","GEM" 

IF a=l THEN GOTO hauptmenue 
IF a= 2 THEN CLS:END 
IF a=3 THEN SYSTEM 
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Führungskämpfe 

REGENT - Ein Taktikspiel für zwei 

Spielen Sie gerne? Wenn ja, dann haben wir etwas Feines für Sie: Regent 
ein taktisches Spiel um die Führungsposition. 


REGENT ist für zwei Spieler ausge¬ 
legt, die den jeweils gegnerischen Re¬ 
genten ausschalten müssen. Das Spiel 
ist dem Brettspiel Shogun nachempfun¬ 
den und spielt sich weitestgehend 
gleich. Hier ein kurzer Überblick auf 
die Spielregeln: 

Jeder Spieler bekommt einen Regen¬ 
ten, einen Spielstein, der gesondert ge¬ 


kennzeichnet ist, und eine Anzahl von 
’Untertanen’, also normalen Spielstei¬ 
nen. Diese Spielsteine enthalten Zah¬ 
len, die angeben, wie viele Felder mit 
dem jeweiligen Stein übersprungen 
werden können. 

Nachdem ein Stein seine Position geän¬ 
dert hat, verändert sich auch die 
Sprungzahl. Die Sprünge dürfen nur 


geradlinig mit einer Richtungsände¬ 
rung erfolgen. Bei positiven Sprung¬ 
zahlen kann auch diagonal gesprungen 
werden, allerdings immer die Hälfte 
der angegebenen Zahl. Gewinner ist 
derjenige, der den gegnerischen Re¬ 
genten schlägt oder dem Gegner nur 
noch zwei aktive Steine übrigläßt. 

Anmerkungen zum Programm 

Das Programm wurde in BASIC-2 un¬ 
ter der Version 1.21 geschrieben und 
läuft am besten mit einer angeschlosse¬ 
nen EGA-Karte. Allerdings ist der Ein¬ 
satz auch unter CGA ohne größere Pro¬ 
bleme möglich. 

(Wolfgang Mielke/jb) 


'***♦ REGENT **** von W.Mielke 
•**»* BASIC2 V 1.21 - EGA-Graphic 

RESET 

SCREEN GRAPHICS XDEVICE FIXED,YDEVICE FIXED 
SET MODE 2 FONT 3 POINTS 72:GRAPHICS MODE 2 
WINDOW FULL 

WINDOW TITLE "R EGEN T"+STRING$(22," ")+"von W.M 
IELKE " 

DIM rx(8),ry(8),swr(8),gx(8),gy(8),swg(8) 

' rx.ry bzw. gx.gy = Koordinaten der roten bzw. gr 
ünen Spielsteine 

swr bzw. swg = Steinwerte der roten bzw. gr 

ünen Spielsteine 

LABEL spieianleitung 

xw=XWINDOW*XPI XE L:yw=YWINDOW*YPIXE L 
BOX 0;0,xw,yw FILL 

PRINT AT(16; 12)POINTS(28)COLOR(4)"SPIELAN LEITUN 
G ? (J/N)"; 

s p$=INPUT$(1 ) 

PRINT AT(16;12)POINTS(2 8)"SPIELANLEITUNG ? (J/N 

)" 

IF UPPER$(sp$)< >"J"AN D UPPER$(sp$)<)"N"THEN GOT 
0 spielanleitung 

BOX 0;0,xw,yw FILL ONLY WITH 1 COLOR 13 
USER SPACE 315,400 
USER ORIGIN 135;18 

LABEL titel 
a= 1 

FOR b=1 TO 6 

READ ys:READ b$:a=a+10 

'ys = Y-Koordlnate der Schrift, b$ = Buchstabe 
PRINT AT(a;15)COLOR(8)EFFECTS(6)UPPER$(b$) 

NEXT 

PRINT AT(23;17)COLOR(2)POINTS(10)FONT(1> " " ; 

FOR i=1 TO 2000:NEXT 
RESTORE 
‘ a=l 

FOR b=l TO 6 

READ ys:READ b$:a=a+10:aa=a-1 

PRINT AT(a;15)EFFECTS(5)UPPERS(b$} ; AT(aa; 14) CO 
LOR(2)EFFECTS(1)UPPERS(b$) 

FOR 1=1 TO 700:NE XT 
NEXT 

FOR 1=1 TO 2000:NEXT 
FOR br=-63 TO 13 
BOX br;115,1,90 FILL 

BOX br ; 115 , 1,90 FILL ONLY WITH 1 COLOR 13 
NEXT 

MOVE -75;18:PRINT ANGLE(90)EFFECTS(1)"regent" 

BOX 5;-5,368,368 WIDTH 3 FILL 
FOR br = 3 74 TO 426 
BOX br;115,1,90 FILL 

BOX br;115,1,90 FILL ONLY WITH 1 COLOR 13 
NEXT 

MOVE 438;348:PRINT ANGLE(270)EFFECTS(1>"regent" 
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IF UPPER$(sp$) = "J" THEN GOSUB an 1eitung:BOX 5;-5,3 
68,368 FILL 

LABEL brett 

SET FONT 3 POINTS 72 COLOR 1 EFFECTS 0 
anzah1_rot=8:anzahl_gruen=8 
FOR wah1_reihe=0 TO 7 
FOR wahl_zeile=0 TO 7 
GOSUB muster_wah1 
NEXT wah1_zei1e 
NEXT wahl_reihe 

spieler=INT(RND*2)+l 'Auslosung 

, welcher Spieler anfängt 

IF spieler=l THEN GOSUB aufstel1ung_rot:GOSUB aufs 
te11ung_gruen:GOTO zug_gruen 

IF spieler=2 THEN GOSUB aufste11ung_gruen:GOSUB au 
fstel1ung_rot:GOTO zug_rot 


LABEL zug_rot 

farbe=1:GOSUB schr1ft_gruen 
farbe=2:GOSUB schrift_rot 
LABEL auswertung_rot 
GOSUB wähl 
FOR ii=1 TO 8 

IF reihe=rx(ii) AND zeile=ry(ii) THEN sw=swr(i 
i):G0SUB ziel:GOSUB wirkung_rot:GOTO rot_sichern 
NEXT 

BOX 46*wahl_reihe-1;46*wahl_zei1e-1,46,46 COLOR 8 
GOTO auswertung_rot 

Label zug_rot kopieren und ändern 

LABEL zug_gruen 
farbe=1:GOSUB schr1ft_rot 
farbe=ll:GOSUB sehrift_gruen 
LABEL auswertung_gruen 
G0SU8 wähl 
FOR ii=1 TO 8 

IF re1he=gx(ii) AND zeile=gy(1i) THEN sw=swg(i 
1):GOSUB ziel:GOSUB wirkung_gruen;GOTO gruen_siche 
NEXT 

BOX 46*wahl_reihe-1;46*wahl_ze11e-1,46,46 COLOR 8 
GOTO auswertung_gruen 

LABEL wähl 
wt$="STEIN WÄHLEN " 

PRINT CHR$(7);:GOSUB Ortung 
wahl_reihe=reihe:wahl_zeile=zeile 
BOX 46*wahl_reihe-1;46*wahl_zei1e-1,46,46 COLOR 
7 ' Auswahl rahmen 

FOR i=1 TO 1500:NEXT 

WINDOW TITLE" BESTÄTIGEN <== LINKE - MAUSTASTE 
- RECHTE ==> WAHL WIEDERHOLEN" 
buttl=-l:butt2=-l ' Maust 

astenwerte 

WHILE buttl=-l OR butt2=-1 
buttl=BUTTON(1):butt2=BUTTON(2) 
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IF buttl=0 THEN RETURN 

IF butt2 = l THEN BOX 46*wah1_re1 he-1;46*wah1_ze1 
le-1,46.46 COLOR 8:GOTO wähl 
WEND 
RETURN 

LABEL ziel 
PRINT CHR$<7); 
wt$="ZIEL WÄHLEN" 

FOR 1=1 TO 1500:NEXT 
GOSUB Ortung 
GOSUB pruefung 
RETURN 

LABEL Ortung 
WINDOW TITLE wt$ 

WINDOW MOUSE 3 
LABEL mausabfrage 
WHILE BUTTON(1)=-1 
mausx=XMOUSE 

mau ay=(YMOUSE-Y PLACE)*YPIXEL 
WENO 

IF XMOUSE<135 OR XMOUSE>500 OR YMOUSE<15 OR YMOUSE 
>305 THEN GOTO mausabfrage 
reihe=FIX((mausx-135)/46) 
zeile=FIX((mausy-15)/46) 

WINDOW MOUSE 0 
WINDOW TITLE"" 

RETURN 

LABEL pruefung 

diffx = v/ahl_reihe - reihe ' Prueft Schrit 

tlänge und Rechtwinkligkeit 
diffy = wahl_zeile - zelle 
differenz = ABS(diffx) + ABS(diffy) 

IF differenz«>sw THEN FOR gong=l TO 3:PRINT CHR 
$(7) ; :NEXT:GOTO ziel 

minx=MIN(wahl_reihe,reihe):max x=MAX(wahl_reihe,re 
i he) 

miny=MIN(wahl_zeile,zeile):maxy=MAX(wah1_zeile,ze 
i 1 e) 

' Pruefung auf zu ueberspringende Steine 
IF sw=l THEN RETURN 

IF diffx=sw OR diffy=sw THEN GOTO sprungO 
IF ABS(diffx)=l THEN GOTO sprungl 
IF ABS(dlffy)=l THEN GOTO sprungll 

IF ABS(d1ffx)=2 AND ABS(diffy)=2 THEN GOTO sprun 
92 

LABEL sprungO 
zaehle r = sw-1 

IF d1ffx = 0 THEN jx=re 1 he:jy=m1ny:zx = 0:zy = l 
IF diffy=0 THEN jx=minx:jy=zei1e:zx=1:zy=0 
GOSUB schleife 

IF weg = TRUE THEN RETURN ELSE GOTO zurueck 

LABEL sprungl 
zaehler=sw-l 
zx=0:zy=l 
j x=minx 

IF SGN(d1ffx)=SGN(diffy) THEN jy=maxy-zaeh1er EL 
SE jy=maxy-sw 

GOSUB schleife 
IF weg=TRUE THEN RETURN 
j x=maxx 

IF SGN(dif fx)=SGN(dlffy) THEN jy=maxy-sw ELSE jy 
=maxy-zaehle r 

GOSUB schleife 

IF weg=TRUE THEN RETURN ELSE GOTO zurueck 

LABEL sprungll 
zaehler=sw-l 
zx=l: zy = 0 
j y=miny 

IF SGN(diffx)=SGN(diffy) THEN jx=maxx-zaeh1er EL 
SE jx=maxx-sw 

GOSUB schleife 
IF weg=TRUE THEN RETURN 
j y=maxy 

IF SGN(diffx)=SGN(diffy) THEN jx=maxx-sw ELSE jx 
=maxx-zaehler 

GOSUB schleife 

IF weg=TRUE THEN RETURN ELSE GOTO zurueck 


zx = 0 : zy=1 
j x=wahl_re1he 

IF SGN(dlffy) = 1 THEN jy=zeile-l ELSE jy=wahl_ze 

1 1 e 

GOSUB schleife 
zx=l:zy=0 
j y = z e 1 1 e 

IF SGN(diffx)=l THEN jx=reihe ELSE jx=wahl_reih 

e-1 

GOSUB schleife 
IF weg=TRUE THEN RETURN 
zx=0:zy=l 
j x= reihe 

IF SGN(d1ffy)=l THEN jy=zeile ELSE jy=wahl_zeil 

e-1 

GOSUB schleife 
zx=l:zy=0 
j y = wahl_zei1e 

IF SGN(d1f f x) = 1 THEN jx=re1he-l ELSE jx = wahl_re 

i he 

GOSUB schielfe 

IF weg=TRUE THEN RETURN ELSE GOTO zurueck 


LABEL Schleife 
weg=TRUE 

FOR s=l TO zaehler 
FOR st=l TO B 

IF jx+(s#zx)=rx(st) AND jy+(s*zy)=ry(st) OR jx 
+ (s*zx)=gx(st) AND jy+(s*zy)=gy(st) THEN weg = FALSE 
:RETURN 

NEXT st 
NEXT s 
RETURN 


LABEL zurueck 

FOR gong=1 TO 3:PRINT CHR$(7);:NEXT 
WINDOW TIT LE"U NERLAUBTER ZUG" 

FOR z=l TO 4500:NEXT 

BOX 46*wahl_reihe-1;46*wahl_zei1e-1,46,46 COLO 

R 8 

IF farbe=2 THEN rx(i1)=wah1_reihe:ry(ii)=wah1_zei 
le:swr(ii)=sw:GOTO auswertung_rot 
IF farbe = ll THEN gx(11 )=wah1_re1 he:gy(ii)=wah1_ze 
ile:swg(ii)=sw:GOTO auswe rtung_g ruen 

LABEL gewonnen 

SET COLOR 5 EFFECTS 1 POINTS 20 ANGLE 0 

FOR 1=1 TO 4000:NEXT 

BOX 0;0,366,366 COLOR 12 FILL 

LINE 3;3,3;360,363;360 WIDTH 3 

BOX 0;0,366,366 COLOR 0 WIDTH 3 

gw=0:fa r be=11 

IF gw$="ROTE"THEN farbe=2:gw=8 ' gw$ = 

Gewinner 

MOVE 159 ; 250:PRINT COLOR(1)"DER" 

MOVE 155 ; 254:PRINT"DER" 

MOVE 141+gwj208:PRINT COLOR(l)gw$ 

MOVE 136+gw;213:PRINT COLOR(l)gw$ 

MOVE 135+gw;214:PRINT COLOR(farbe)gw$ 

MOVE 129;170:PRINT COLOR(1)"REGENT" 

MOVE 125;174:PR I NT"REGENT" 

MOVE 79; 130:PRINT C0L0R(1)“HAT GEWONNEN !" 

MOVE 75;134:PRINT"HAT GEWONNEN j" 

PRINT AT(33;19)P0INTS(10)"NEUES SPIEL ? (J/N)" 
a$ = IN PUT$(1 ) 

IF UPPER$(a$) = ''N"THEN CLEAR RESET: END 
BOX -50;0,50,368 FILL 

BOX -50;0,50,368 COLOR 13 FILL ONLY WITH 1 
BOX 368:42,50,280 FILL 

BOX 374:42,44,280 COLOR 13 FILL ON LY WITH 1 
GOTO brett 

LABEL aufstel1ung_rot 
reihe=0:zei1e=0 
farbe=l:GOSUB schrift_gruen 
farbe=2:GOSUB schrift_rot 
FOR ii=1 TO 8 

GOSUB stein_rdt 

rx(1i) = reihe:ry(ii)=zeile:swr(i i)=sw 
rx(4);ry(4 ) = REGENT 
zei1e=zei1e+1 
NEXT 
RETURN 


LABEL sprung2 
zaehle r=2 


LABEL schrift_rot 
RESTORE 
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FOR b=l TO 6 
READ ys:READ b$ 

MOVE -75;ys:PRINT ANGLE(90)COLOR(farbe)b$ 

NEXT 

RETURN 

LABEL ste1n_rot 

mz=4 m 

z = Maximale Zufallszahl 

xp=46*reihe+l:yp=46*zei le+1 
BOX xp;yp,42,43 COLOR 2 FILL 
IF ii=4 AND reihe < 8 THEN SHAPE xp+28;yp+5,xp + 26 
;yp+37,xp+39;yp+20 COLOR 15 FILL ONLY WITH 8:mz=2 
SHAPE xp+28;yp+5,xp+28;yp+37,xp+39;yp+20 COLOR 0 
CIRCLE xp+14;yp+21,8 WIDTH 3 
CIRCLE xp+15;yp+20,8 COLOR 0 FILL 
3 w=INT(RND#mz)+l ' s 

w = Steinwert 

MOVE xp+11;yp+34:PRINT ANGLE(270)FONT(1)POINTS(1 
0 ) sw; 

RETURN 

LABEL wlrkung_rot 
FOR jj=l TO 8 

IF re 1he= rx(j j ) AND zei1e=ry(jj ) THEN GOSUB ziel 
:GOTO wirkung_rot 

IF reihe=gx(jj) AND zei1e=gy(jj) THEN anzahl_gr 
uen=anzahl_gruen-l:GOSUB rot_trifft 

IF reihe=gx(5) AND zeile=gy(5) THEN anzahl_grue 

n=2 

IF anzahl_gruen=2 THEN gw$="ROTEGOTO gewonnen 
NEXT 
RETURN 

LABEL rot_trifft 'Geschlagen 

en Stein ablegen 

ziel_reihe=reihe:ziel_zeile=zeile 
reihe=-l:zei1e=anzahl_gruen-l 
gx(jj)=reihe:gy(Jj)=zeile 
GOSUB stein_gruen 
reihe=z1el_reihe:zeile = ziel_zei le 
RETURN 

LABEL rot_sichern 
rx(1i)=reihe:ry(11)=zeile 
GOSUB stein_rot:swr(ii)=sw 
GOSUB muster_wahl 
GOTO zug_gruen 

'— Von LABEL aufste11ung_rot bis hier kopieren un 
d entsprechend aendern ! — 

LABEL aufstel1ung_gruen 
reihe= 7:zei1e = 0 
farbe=ltGOSUB schrift_rot 
farbe=11:GOSUB schrift_gruen 
FOR 11=1 TO 8 

GOSUB s te1n_g ruen 

g x(ii ) = reihe:gy(ii)=zeile:swg<ii )=sw 
zei1e=ze11e+1 
NEXT 
RETURN 

LABEL sehrift_gruen 
RESTORE 
FOR b=1 TO 6 
READ ys:READ b$ 

MOVE 438;365-ys:PRINT ANGLE(270)COLOR(farbe)b$ 
NEXT 
RETURN 

LABEL stein_gruen 
mz = 4 

xp=46*reihe+l:yp=46*zeile+1 
BOX xp;yp.42,43 COLOR 11 FILL 
IF ii=5 AND reihe >-1 THEN SHAPE xp+14;yp+5,xp+1 
4;yp+37,xp+3;yp+20 COLOR 15 FILL ONLY WITH 8:mz=2 
SHAPE xp+14;yp+5,xp+14;yp+37,xp+3;yp+20 COLOR 0 
CIRCLE xp+28;yp+21,8 WIDTH 3 
CIRCLE xp+29;yp+20,8 COLOR 0 FILL 
sw=INT(RND#mz)+l 

MOVE xp+33;yp+6:PRINT ANGLE(90)FONT(1)POINTS(10 
) sw ; 

RETURN 

LABEL wirkung_gruen 


FOR jj=l TO 8 

IF reihe=gx(jj) AND ze11e = gy(jj ) THEN GOSUB ziel 
:GOTO wirkung_gruen 

IF reihe= r x(J j) AND zei1e=ry(jj) THEN anzahl_ro 
t = anzahl_rot-l; GOSUB g ruen_.tr i f f t 

IF reihe= rx(4 > AND zeile = ry(4) THEN anzahl rot = 

2 

IF anzahl_rot=2 THEN gw$="GRÜNEGOTO gewonnen 
NEXT 
RETURN 

LABEL gruen_tr1fft 
z1el_reihe=reihe:ziel_zei1e=zei1e 
reihe=8:zeile=8-anzahl_rot 
rx(j j) = reihe:ry(jj) = zeile 
GOSUB stein_rot 

reihe=ziel_reihe:zeile=ziel_zeile 

RETURN 

LABEL gruen_sichern 
gx(ii)=reihe:gy(ii )=zeile 
GOSUB stein_gruen:swg(i i )=sw 
GOSUB muster_wahl 
GOTO zug_rot 

LABEL muster_wahl 
muste r = 8 

FOR ko=0 TO 6 STEP 2 

IF wahl_reihe=ko THEN IF wahl_zeile=0 OR wahl_ze 
i1e=2 OR wahl_zei1e=4 OR wahl_zeile=6 THEN muster= 
2 

NEXT 

FOR kO=l TO 7 STEP 2 

IF wahl_reihe=ko THEN IF wahl_zeile=l OR wahl_ze 
ile=3 OR wahl_zeile=5 OR wahl_zeile=7 THEN muster= 
2 

NEXT 

BOX 46*wahl_re1he-1;46*wahl_zei1e-1,46,47 MODE 1 C 
0 LOR 8 FILL 

BOX 46*wahl_reihe;46#wahl_zei1e,44,44 FILL WITH mu 

ster 

RETURN 

LABEL anleitung 

SET FONT 1 POINTS 10 COLOR 0 

LOCATE 23;3:PRINT"ES GILT, DEN GEGNERISCHEN" 
PRINT AT(50;3)EFFECTS(1)COLOR(2)POINTS(16)FONT(3 
) " r e g e n t" ; 

PRINT TAB(20)"AUSSER GEFECHT ZU SETZEN." 

PRINT TAB(22)"DAS SPIEL IST BEENDET , WENN EIN S 
PIELER" 

PRINT TAB(20)"SEINEN";TAB(43) M VERLOREN ODER NU 
R" 

PRINT AT(29;6)EFFECTS(1)COLOR(2)POINTS(16)FONT(3 
)" r e g e n t"; 

PRINT TAB(20)"NOCH";TAB(29)"AKTIVE SPIELSTEINE H 
AT. " 

PRINT AT(26;7)COLOR(2)"2" 

PRINT TAB(21)"AM ZUG IST DER SPIELER, DESSEN SCH 
RIFTZUG" 

PRINT TAB(21)EFFECTS(1)COLOR(2)POINTS(16)FONT(3) 
"r e g e n t"; 

PRINT AT(34;9)"FARBIG IST." 

PRINT TAB(22)"SCHRITTWEITE IST DIE AUF DEM STEIN 
ANGE-" 

PRINT TAB(20)"ZEIGTE ZAHL. DIE ZÜGE DÜRFEN NUR G 
RAOLINIG" 

PRINT TAB(20)"ODER RECHTWINKLIG MIT ";EFFECTS(8) 
"EINER";EFFECTS(O)” RICHTUNGSÄNDE-" 

PRINT TAB(20)"RUNG AUSGEFÜHRT WERDEN , OHNE ANDE 
RE STEI-" 

PRINT TAB(20)"NE ZU ÜBERSPRINGEN." 

PRINT TAB(21)"ANGEWÄHLT WIRD MIT DEM MAUSZEIGER 
UND DER" 

PRINT TAB(20)EFFECTS(64)" LINKEN MAUSTASTE ";EF 
FECTS(O)". IRRTÜMLICH ANGEWÄHLTE" 

PRINT TAB(20)"SPIELSTEINE KÖNNEN VOR DEM ZUG 
MIT DER" 

PRINT TAB(20)EFFECTS(64)" RECHTEN MAUSTASTE " ;EF 
FECTS(0 ) " ZURÜCKGENOMMEN WERDEN." 

MOVE 140;36:PRINT COLOR(2)"VIEL SPASS !!" 

PRINT AT(34;21)COLOR(5)"TASTE DRÜCKEN !" 
a$=INPUT $(1) 

RETURN 

DATA 21,r,68,e,129,g,190,e,251,n,312,t 
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Biete Software 


DBASEII FÜR PCW 8256/8215 ORIG. 

VERR DM 150,- 0 7403/74 68 G 


Astrologie mit Computer 
International geschätzte Astro¬ 
logenprogramme, professionelle 
Deutungsprogramme, Lernprogramme 
für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Ging. 

Info gegen DM 2,- in Marken. 

Astron, K.W. Bonert, Peter Marqu.Str. 4a 
2000 Hamburg 60 G 


NOTENVERWAUUNG FÜR CPC MIT 
ZEUGNISDRUCK FÜR HS/BAD.-WÜRTT. 

schreibt in amtliche Formulare 
Info gg. Freiumschlag: P. Bader 
Egerlandstr.14. 7080 Aalen 


CPC664/6128 ORIG. M. HANDBUCH 
MULTIPL. 50,- dBASE2 50,- FAST 
BASIC-COMP. 30,- STARWRITER 30, 
COPYSHOP 30.- STAT./COMPOSER/ 
MATHE/COPY-STAR 30,- DESIGNER/ 
CREATOR/MON/DISKSORT-STAR 30,- 
DAS GR.CPC-ARBEITSBUCH 35,- 
BLOCHWITZ Tel. 0 60 55/7918 AB 19 U. 


CPC-PUBLIC-DOMAIN-SOFTWARE 
Liste 2 x 60 PI bei: Peter Breuker 
Rektenstr. 10,4930 Detmold 1 


R.Christiansen 
Versandhandel für Software 
Postfach 1315 
2390 Flensburg 

Tel 04 61/280 75 G 


Wirtschaftliche Programme 

für die Arztpraxis auf 

dem Schneider CPC, Joyce, PC 

Fa. EFFEKTA, Am Wiggert 9c 

4500 Osnabrück, Tel. 05 41/44 2416 G 


LocoScript2-Fibel 

Tel: 040/813721 G 


EXPO-SOFT 

Immer aktuell und superschnell 

Public Domain & Free-Software 

IBM / Schneider PC + Kompatible 

Disk, ab DM 1,80 • Gratisinfo 

S. Schülke Wuppertaler Str. 130 

5650 Solingen 1, Tel.: 0212/5912 08 G 


STEUERMAT: Lohn-und Einkommensteuer 
88; Ausdruck direkt auf die Antragsformula¬ 
re, Analyse, Tabelle, alle Einkunftsarten, 
jährliche Aktualisierung (20,- DM) 89,- DM, 

FORMULARPRINT: 

DIN A4-Formularbearbeitung, 40,- DM 
FIBUMAT: Einnahme /überschuß-Rech- 
nung, Kassenbuch, Kontenlisten, Ergebnis¬ 
abrechnung, USt.-Voranmeldung, Funktions¬ 
tasten frei belegbar, 142,- DM 
Für JOYCE: 3“oder IBM-PC: 5,25“ u. 3,5“ 
Demo: 15,- DM, Info: 80 Pf, RP 
FFSW, Farin, Elisabethstr. 65, 

4460 Nordhorn, Tel.: 05921/13757 
■■■■■■■■■■■■■■■ G 


Sensationell CPC u. IBM-PC 
Von Lehrern im Deutschunterricht 
erprobt: Der intelligente 
Rechtschreibtrainer erfaßt alle 
Probleme der deutschen Rechtschreibung. 
Abstimmung auf individuelles 
Leistungsniveau möglich. Ausführliche 
Fehleranalyse. Preis: ab DM 59,- Info: 

H. Gneiting, Postf., 7319 Dettingen/Teck 
■■■■■■■■■■■■■■■■■■G 


Dias ordnen mit Computer 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl. Ing. W. Grotkasten, 

Birnenweg 6, 7060 Schorndorf 

Tel. 071 81/42846 G 


BONZO’S SUPER MEDDLER 

DAS VIELSEITIGSTE U. UMFANG¬ 
REICHSTE KOPIERPROGRAMM FÜR BAND¬ 
DISK-KOPIEN! Auch für neueste 
SpeedlockTypen, Turbolader, 

CASSY geschützte u. headerlose 
Programme.Mit über 900 Lösungs¬ 
hinweisen (werden lfd. ergänzt) 
auf 3-Disk nur DM 55.- + VK 
Infos gg. Freiumschlag von: SOFT¬ 
WAREVERTRIEB MARTINA HIPPCHEN, 
POSTFACH 10 09 66, 5000 KÖLN 1 
Tel.: 0221/215302 (20-22 Uhr) G 


Public Domain & Free-Software. 
IBM/Schneider PC u. Kompatible. 

Disk, ab DM 1,80-, Gratiskatalog 
M. Karbach • Remscheiderstr. 18 
5650 Solingen 1, Tel. 0212/4 31 40 G 


ACHTUNG!! ERWACHSENE 
10 Disk. 5 1/4 od. 3 1/2 mit delikaten 
Programmen f. IBM PC/Kompatible 
Nur DM 50,-. VS/Bar. M. Karbach 
Remscheiderstr. 18,5650 Solingen G 


PERPLEX - die professionelle 
Finanzbuchhaltung zum erstaun¬ 
lichen Preis. Alle Auswertungen. Konten¬ 
zahl beliebig, DATEV-Kontenplan möglich, 
nur 192 DM 

BANKENSCHRECK - Neuberechnung von 
Darlehn nach neuestem BGH-Urteil und 20 
weitere Finanzprg., 98 DM. JOYCE und 
IBM-Komp. Ass.-jur. Keilmann, Wilhelmstr. 
71,44 Münster G 


ACHTUNG! LEHRER! 

K-Z-Z 4.0 für IBM PC : 

Korrekturen ■ Zensuren - Zeugnis 
Hildegard Lichtenstein, Hans- 
Pfitzner-Str. 15A, 4270 Dorsten 1 G 


PD-SERVICE-LAGE bietet Ihnen: 
Public-Domain, Freeware und 
Shareware zum fairen Preis!! 

Kopierkosten: 4.50 • 2.70 DM!! 
z.B.. PC-TEXT 2.0 v. R. Otter« 
ü. 500 Dtsch.Progr.!! 230 Disk- 
PD-Spiele, neuste intern. PDI 
Kat. f. IBM/kompat. g. 1,80 Porto 
PD-Service-Lage: Bernd Schulz 
Hasselstr. 38,4937 Lage/Lippe 
Auch alles auf 3.5“ lieferbar G 


CPC & JOYCE PUBLIC DOMAIN 

Ein Info ist für 2 x 100 Pf erhältlich 
PDI, Pf 1118, D-6464 Linsengericht G 


LERN SOFTWARE (CPC; nur Disc) 

Für Schule und Nachhilfe von 
Pädagogen entwickelt. 

Schrftl. Division, Multipl. Add 
Subtr., Einmaleins 59,- DM je Prg. 

Info gegen Rückporto! 

Ulrich Plöger, Einsteins«. 9B 

4040 NEUSS 1 G 


CPC 6128 Software, sparen per 
Computer. Info per Freiumschlag 
K-H RUHE ALTER LINGENER DAMM 9 
4440 RHEINE 1 


PD-SOFTWARE ab 1,20 DM. G. SANDER 
HINTERORTSTR. 30, 2841 Wagenfeld 


SCRIPT-MAN SCHRIFTMANAGER für 
DR DRAW auf dem JOYCE PCW 8512 
Komfortable Schriftverwaltung 
mit Auto-Start. Narrensichere 
Benutzerführung; nur DM 51.40 
Komplett-Programm/Laufgarantie 
Info: 1.60 DM in Briefmarken 
B.Richter, Brinkweg 22,2808 Syke 


AfA/Inventarliste (dBASEII) 

Ideal für Gewerbetreibende mit 
wenig Zeit! Alle Funktionen 
voll Menü-gesteuert! Pr. 89,- DM 
Listen müssen nur einmal er¬ 
stellt werden, Fortschreibung 
für das nächste Jahr automat.! 

Tel. 05651/40846 G 


HASI MATHEFÖRDERPROGRAMME 

für die Grundschule. 

Ersatz für Nachhilfe + Förderung 
aller Schüler. Mil vielen 
Lernhilfen und Fehleranalyse. 

3-Disk für CPC, eine Disk pro 
Schulhalbjahr 60 DM. 

Tel. 05221/541 15 oder 05203/5942 


MATHE-Programm, Nullstellen, 
GL-Systeme, Integrale, Zeich¬ 
net 2 Funktionen oder Funktion 
und Ableitung, mit Anleitung, 
Disk für CPC 6128 28 DM Vor¬ 
kasse, W. Steffen, Ritter-von- 
Hagen-Str. 8,6610 Lebach, 

Info 1,10 DM in Briefmarken 


Verkaufe Kass. Tel. 04 21/80 45 91 


Schul-Software von Lehrern tür Lehrer: 
PAN Programmierte Abfrage und Noten- 
gebung Programmpaket mit 4 Disketten 
zur Bearbeitung von Multiple-Choice-Abfra- 
gen. Für Kompatible, Festplatte, Drucker, 
5,25“. In der schulischen Praxis bewährt. 
Effektive Prüfvorbereitung, Lernzielkontrolle 
und Verbesserung, leichte Handhabung 
durch Menüsteuerung, Notenbuchverwal¬ 
tung und Statistik, Erstellung schriftlicher 
Prüfung, Einbindung in Ihre Textverarbei¬ 
tung, incl. 250 Fragen WISO u.s.m., PAN- 
System 495,-DM 3 DEMO-Disk., (=Gesamt- 
programm) und Handbuch 30,- DM 
PAN, K.Stetten, Ob.Dallenberg- 
weg 15, Postfach 6651, 

8700 Würzburg 


Biete Hardware 


VORTEX F1/D F. CPC464 M. SOFTWARE 
700 DM CHIFFRE 89/001 04 PC 


Das ist 
Ihre 

Chance.. 

Schon eine Kleinanzeige 
bringt oftmals großen Er¬ 
folg und hilft, neue Kontak¬ 
te zu knüpfen. 

Nutzen Sie unser Angebot, 
und profitieren Sie von der 
Tatsache, daß unsere Zeit¬ 
schrift 

»PC INTERNATIONAL« 

jeden Monat von zigtau¬ 
send Computer-Interes¬ 
sierten gelesen wird. 
Möchten Sie etwas verkau¬ 
fen, tauschen, oder su¬ 
chen Sie das »Tüpfelchen 
auf dem i« - dann sollten 
Sie die eigens hierfür be¬ 
stimmte Bestellkarte im 
Heft ausfüllen und an un¬ 
seren Verlag absenden. 

Ihre Annonce erscheint 
dann in der nächsten Aus¬ 
gabe. 

Wir möchten ausdrücklich 
darauf hinweisen, daß wir 
keine Anzeigen veröffentli¬ 
chen, aus denen ersicht¬ 
lich ist, daß es sich hierbei 
um Veräußerungen von 
Raubkopien handelt. 

Des weiteren machen wir 
darauf aufmerksam, daß 
indizierte Computerspiele 
nicht in Form von Anzei¬ 
gen beworben werden 
dürfen. 

Die Redaktion 
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Einzelbezugspreis für DATABOX: 

PCW - 3“-Disk. PC - 5 1/4“-Disk. 


24, - Oll (unverbindliche Prolsempfehlung) 

Wenn Sie über den DMV-BosttHlservIco bestellen, gilt lolgendes: 


24,- DM 
3,- DM 


Ausland: 

Einzelpreis 
zzgl. Versendkoston 


Endpreis 


27,- DM Endprels 


24,- DM 
5,- DM 


29,- DM 


Das Databox Abo kostet: 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin. 150,- DM 

Im europäischen Ausland. 160,- DM 

Im außereuropäischen Ausland. 180,- DM 


Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin. 300, - DM 

Im europäischen Ausland. 320,- DM 

Im außereuropäischen Ausland... 360,- DM 

Bitte benutzen Sie für Ihre Bestellung die 
Abo-Karte. 

Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der 
Nachnahmegebühr. 

(Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich) 


Wlderrufsrecht: 

Wir garantieren jedem 
Abonnenten das Recht, 
seine Bestellung inner¬ 
halb einer Woche nach 
Abschluß schriftlich beim 
DMV-Verlag, Postfach 
250, 3440 Eschwege 
zu widerrufen. Die recht¬ 
zeitige Absendung des 
Widerrufsschreibens ge¬ 
nügt zur Fristwahrung. 


DMV-Verlag - Postfach 250 - 3440 Eschwege 

Bitte Bestellkarte benutzen 

























I Kleinanzeigen 


CPC 6128, Zweitlaufwerk FD 1 + 
ComPack (Kaufm. Abrechnungssystem) 
800,- • Tel, 08321/86495 


Gebrauchtcomputer mit Garantie 
AMSTRAD • SCHNEIDER - PEACOCK 
CPC, JOYCE, PC, XT, AT 
HARDWARE-SOFTWARE - LITERATUR 
Ersatzteile & Reparaturdienst 
ALLES zu echten Superpreisen. 
Ständiger Ankauf 
Höchstpreise für Ihren “ALTEN“ 
bei Computer-NEUKAUFü! 

Katalog anford. (2,- DM in Marken) 
EDV-CLOOTS, 5132 Übach-Palenberg 
Zeisstr. 7, Tel.: 02451/46608 G 



51/4-Zoll-Zweitlaufwerk für CPC 
2x180 kßyte, für 200,- • Tel, 08654/8906 



Verk. CPC464, CTM644, DDI1 
Zubehör, Softw., Lit.; Liste 
bei F. Helmecke, Stephanstr. 6a, 
8948 Mindelheim 


CPC6128+FARBM0N.+DMP2000+MULTI 
FACE2+2 ZUS.LAUFWERKE+SCANNER+ 
MP2+STEREOVERST.+CA.200 SPIELE 
+CA,20ANWENDGN.(W0RDSTAR,GEN0, 
DBASE2, ARTSTUDIO,MUSICSYSTEM) 

DM 3,20 (NP CAT) BERND HUGO 
Tel. 06106/4796 AB 18 Uhr 


VERKAUFE MATRIX-DRUCKER 
SCHNEIDER DMP 3000 VB 500 DM 
Tel. 040/394059 


CPC 464 + GT64 + 70 SPIELE alles OK. 
12 Monate alt. Tel. 02434/1655 


GELEGENHEIT I ZWEITLAUFWERK 
FD-1(464) VB 220,- • Tel. 02242/2267 


Neue und gebr. PC/Festplatten/ 
Floppy/Drucker, PC von Commodore, 

Atari, Amstrad, Schneider, EURO- 
und Portable PC. Ankauf bei System¬ 
wechsel, Reparaturservice Manfred 
Kobusch, Bergenkamp 8, 4750 Unna 
Tel. 02331/133 45 G 


CPC664 m. Grünm. + Bücher, Joy., 
Disks, Zeits., Anwenderprg. + Spiele 
f. DM 550,- - Tel. 040/486827 


Lichtgriffel nur DM 49,- 

Versand gegen Scheck/Nachnahme. Info 
gratis! Computer bitte angeben! Anschluß 
an jeden(t) Computer möglich. Standardver¬ 
sion für Schneider lieferbar. Firma 
Schißlbauer, Postfach 1171R, 

8458 Sulzbach, Tel. 09661/6592 oder 
09411999915 bis 21 Uhr G 


CPC6128 Grün + 51/4-Floppy + Drucker 
+ Software + Literatur + Disks + 
Stereokabel u.v.m., NP 2300 DM 
VB 1600 DM Tel. 06024/3506 


FÜR CPC464 6128 5.25-LAUFW. 716K 
+ 224K EPROMKARTE + XDDOS. SOFTW. 
AUF 5.25-DISK ANSCHLUSSF FÜR. 

464 500,-DM, Tel. 0208/22596 VB 


CPC6128 Farbe, Drucker Brother 
M-1009 BTX-Modul, Joystick, 30X 
3-Disk, div.Buecher, CPC-lnt. 
5/85-4/89, Preis: Verhandlung 
Tel. 02371/45776 ab 18.00 Uhr 


AMSTRAD PORTABLE PPC640 MIT 
MODEM 2 LAUFWERKE AB 1500 
Tel. 064 01/52 95 AB 18 UHR 


REPARATUR-FESTPREISE FÜR 
SCHNEIDER/AMSTRAD PC 1512 + 

PC1640 MOTHERBOARDS 
142,50 DM inkl. MwSt. u. 

VERSAND. 

IBW-INGENIEURBÜRO WEILAND 
ALBERT-EINSTEIN-STR. 11, 

6110 DIEBURG, Tel. 0 60 71/57 04 G 


PCW-Joyce Spezial Versand 


Farbbänder zu Traumpreisenl 
PCW • DMP 2000 Farbbandkasette 

deutsche Herstellung DM 13,90 

UNSER ANGEOT IM JUNI 
CPC Druckerkabel DM 14,90 
Staubschutzhaube NLQ 401 DM 9,90 


MAXELL 3“ 10er Pack DM 57,90 

PCW 8256 / 8556 / 9512 Maus 
für DR Draw, DR Draw, DTP, 

Basic, GSX, Stop Press, u.a. 
m. Benutzeroberf. DM 278,- 

CPC SPIELE ZUM SONDERPREIS! 

PCW 8256/9512 + PC 1512/1640 

VDU Bildschirmfilter DM 69,-. 

LocoScript 2.16 m. d. Handbuch 
Loco Mail/Font/Spell/File 

INFOLISTE KOSTENLOS! 

B. Welzel & P. Wunsch GbR. 
Swebenhöhe 47, 2000 Hamburg 72 
Tel. 040/6436447 BTX 0406436447 

Plus Versandkosten G 


Suche Hardware 


Suche BTX-Modul für CPC 6128 
Tel. 06106/719 76 


Verschiedenes 


Disketten-, Datenkonvertierung 
JOYCE, CPC auf MS-DOS, ATARI 
Bernd Drost, Schulstr. 67 
6382 Friedrichsdorf, Tel. 0 6715/6 04 G 


PC 512/1640 User-Club sucht noch 
Mitglieder. Mtl. Zeitschrift, Soft¬ 
ware etc. Info von R. Knorre, 

Pf 20 01 02, 5600 Wuppertal 


DOS 8/874/89 DM 150,- 

Tel. 089/481334 ab 19 Uhr 485341 


Club 


JOYCE-COMPUTERCLUB 
Ausführl. Info gegen Rückporto 
von: J. Berghot, Roseggerstr. 5 
5600 Wuppertal 2 


Softwareautoren für 
die Amstrad Computer 
gesucht. 

Haben Sie nicht auch schon einmal daran gedacht, ein gutes Programm, das 
Sie selbst geschrieben haben, zu veröffentlichen ? 

Warum sollten nicht auch andere Leser in den Genuß Ihrer Mini-Dateiverwal¬ 
tung, Grafikerweiterung, Tips, Tricks, Tools, Utilities, Simulationen, Games 
usw. kommen? 

Wirklich gute Software, die den Anforderungen unserer Leser genügt, wird 
von uns entsprechend honoriert. 

Sie sollten jedoch bei der Einsendung Ihres Programms ein paar Punkte be¬ 
achten. 

Wenn Sie Nachstehendes befolgen, wird Ihre Post zügig und ohne große 
Rückfragen und Verzögerungen bearbeitet: 

Senden Sie uns Ihr Programm mit 

(a) allen benötigten Files auf der mit dem Programmnamen bezeichneten Dis¬ 
kette. 

(b) den kompletten Ausdrucken/Listings aller Files der Diskette. 

(c) einer Beschreibung Ihres Programms und 

(d) einer genauen Bedienungsanleitung. 

Die Bedienungsanleitung und die Beschreibung sollten als Textdatei mit auf 
der Programm-Diskette enthalten sein. Wichtig für uns zu wissen wäre noch, 
mit welcher Konfiguration Sie arbeiten, welchen Drucker Sie benutzen, ob Sie 
ein zweites Laufwerk angeschlossen haben usw... 

Wenn Sie der Meinung sind, ein solches Programm geschrieben zu haben, 
dann nichts wie einschicken an den 

DMV Verlag ■ Red. PC International 
Abtlg. CPC/Joyce/PC 
Postfach 250 • 3440 Eschwege 

Geben Sie bitte in der Adresse die für Ihren Amstrad Computer (CPC, Joyce. 
PC) zuständige Abteilung mit an, damit Ihr Programm direkt in die richtigen 
Hände gelangt. 


BASIC2-Programme 

gesucht 

Für unsere ständige PC-Rubrik suchen wir BASIC2- 
Programme sowie Tips & Tricks. 

Alles, was Sie tun müssen, ist Ihr selbstgeschriebe¬ 
nes Programm und die entsprechende Bedienungs¬ 
anleitung als Textfile auf Datenträgerzu speichern 
und uns diesen zuzusenden. 

Als Lohn für Ihre Mühe winkt ein entsprechendes Ho¬ 
norar, das wir nach Begutachtung des Programmes 
mit Ihnen besprechen. 

Übrigens liegen die besten Programme meist in den 
Schubladen (wo sie absolut.nichts zu suchen haben) 
und werden aus fehlender Überzeugung nicht einge- 
sandt. 

Da wir grundsätzlich jedes Programm ausführlich be¬ 
gutachten, könnte Ihre Einsendung, versehen mit un¬ 
seren Verbesserungsvorschlägen, vielleicht der Hit 
des nächsten Monats werden. 

Also, auf bald.... 


Einsendungen bitte an defi:::::•••: 

DMV-Verlag - PC-Redaktion 
Postfach 250 * 3440 Eschwege 
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Händlerverzeichnis—| 


Berlin 


Ihr Computer-Partner für 



>C's/AT's-C 64/128 
Amiga-PCW 
Computer • Drucker 
Zubehör-Software 
Spiele-Service 

W. Müller & J. Kranke GbR 
Schöneberger Slr.5 • 1000 Berlin 42 

Tel. 030-752 91 50/60 

Mo.-Fr. 10-18 Uhr. Sa. 10-13 Uhr 

rmükra 

| DATEN TECHNIK 



Castrop-Rauxel 


0NE GUTE KXEE NACH DER ANDEREN 

Schuster Electronic 


i uinfNiy: •*» 


mal * toweuu» 

■_ Schneider 

:ov\;reravis-'on 

Vertrags handle« 

"t Commodore 

" Vertragsuverkstatl 



Obere MunslersU 33 4620 Castrop-Rauxel (02305)3770 


Düsseldorf 


Schneider 


rnmni irrn nu ncini 
'.ui irU i CK uhsi-hui 



Beratung 
Vertrieb 
Service 

BÜRO-ORGANISATION DATENTECHNIK Vertnensgesehscnall moH 
4000 Düsseldorf 1 FiiedenstraSe 13 Tel 0211730807t 


Hamburg 


• 

• 

• 

• 


• 

• 

• 

• 

• 

• 

Computer 

• 

• 


PC Hard- und Software 


• 

Branchen- u. Sonderlösungen 

• 

• 

• 

Microsoft AMSTVÄD Siemens 

• 

• 

• 

- Vertragshändler — 

• 

• 

2 HH 70 • Wandsbeker Zollstr. 98 


• 

S 6560036 • Fax 6567457 

• 


Kassel/Vellmar 


AMSTRAD/SCHNEIDER 



Holländische Str. 121,3502 Vellmar. Tel.: 0561/8281 60 


Löhne/Ostwestfalen 



CoüipjKf S Softwreienlreni fjr KorMcvMManc. 

AMS’PAD. SCHNEIOER i VORILX ReUcial-iämS« S SERVICE¬ 
CENTRALE. SknL Cotnpulet. Dnidw. Petiphene & Zulxhii 
v A-2, EBV Papier eic • Olscs 

Frllz OBERMEIER COMPUTCR-Tf IETAX-BTX •HiFi -VIDEO-TO- 
• NEC-EPSON-TANMN-BROlHER-SEIKO-OKI-STAR-lOCn-W. 
OT BaMhD'-Bjnitei Slraße 20-4972 LÖHNE I-Tel. 05732 6' 26.3246 


Nürnberg 



Soltau 


AUTORISIERTER FACHHANDLER D ER MA RKEN 

mglßlD Schneider §l£@Hr ^ 


_ v.Tgo.ivsi,,. - j^namMitmio«' COM PUTER 

lütiier jllo A-iknl cer oben genannlei Htrafelleil R.:*en So urs ani -ragen 
Se rann unSelan »i«ts! Wu licier mW aü lagen Sctindliffemag pe- UPS! 
AMSIftAD CPC PCA'. PPC PC AI m SMP 
Snhr.eidei EjiüPC IOWF.R AT. SPnr*' 

SaUCltt LC 2410 MB 21-10 
Wcbl Csupaßl 

Farbbäioei unfi 2-ibehÖl! Dsksilen FUJI uns MAXELL ab LAGER 
Flu len Sie 'ins an' Frager Sie -«ac li irstieir akluslen Preis' 
Schi .tlliche Anlragt-n können 'eilti ricM bcrucksich: g' weiden 


Unikat COMPUTERVERTRIEB 


MUHLENSTR. 2 
TEL. (O 51 91) 1 32 44 


D - 3040 SOLTAU 
TAG UND NACHT 


Basel 


AMSTRAD/SCHNEIDER 

Vertragshändler 

Computer Knüppel AG 

Computer und Büromaschinen 
Riehenring81 (MUBA) 

4058 Basel 

Telefon (061)691 1262 
Fax (061)6910051 


Zürich 


AMSTRAD/SCHNEIDER 

Elmega AG - CH-8910 Affoltern 
Info: Tel. 01 -761 1760 


Eintragungen 
im Händlerverzeichnis, 
nach Städten geordnet, 
kosten je mm Höhe 
6, - DM bei einer 
Spaltenbreite von 
58 mm. 

Einträge möglich 
mindestens 
6 x innerhalb eines 
Insertionsjahres. 

Nähere Informationen: 

DMV-Verlag 
Wolfgang Brill 
Telefon (05651)8009-51 


Anzeigenschluß 
für die 

Ausgabe 8/89 
von 

PC International 
ist der 

13.6.89 

Erscheinungstermin 
ist der 

26.7.89 


6’89 PC 101 







































































Ein Klassiker unter den Spielen ist "Vier gewinnt". Diesen Spaß können Sie 
nun auch auf dem PC erleben 



»PC International« 
erhalten Sie ab: 


CPC-PROGRAMME: 


TIPS & TRICKS: BERICHT: 


Fast wie in Dallas 

Für Freunde der Simulationen bieten wir in 
der nächsten Ausgabe einen hervorragen¬ 
den Ölmanager mit allen Schikanen. Kau¬ 
fen, verkaufen, Bohrungen vornehmen und 
die Konkurrenz sabotieren sind nur ein klei¬ 
ner Bestandteil des ganzen Programms. 


Shape-Editor 

Ein sehr schneller Shape-Editor macht es 
möglich, daß auf einfachste Art und Weise 
Figuren erstellt werden. 



Ein Shape-Editor für den CPC, der es in sich hat. 
Blitzschnell lassen sich definierte Figuren oder Bil¬ 
der auf dem Bildschirm darstellen 


Und wer möchte, kann auch Ausschnitte 
von Screens als Shape definieren und da¬ 
mit arbeiten! 


SERIE: 


Im Zauberreich der Grafik 

Weitere Tricks, um mehr Grafik aus dem 
CPC herauszuholen. 


Wollen Sie wissen, wie die Profis einen Dis¬ 
kettenkatalog so abändern, daß statt der 
Programmnamen eine Botschaft auf dem 
Bildschirm erscheint? Zum Beispiel für eine 
Ladeanweisung. 

Möchten Sie gerne eine kleine Schrift in 
Mode 0 haben? Soll sie auch noch farbig 
sein? Kein Problem für unser Hilfspro¬ 
gramm. 

Und natürlich gibt es wieder viele kleine 
1-kByte-Programme zu Abtippen und 
Staunen. 

Und weitere Tips und Tricks für Ihren 
Rechner. 

PC: 


Spreadsheet 

Ein Programm unter BASIC2 vereinfacht 
die Kalkulation von verschiedenen Werten. 

Vier gewinnt 

Ein BASIC2-Spiel für zwei Personen, das 
einfach nur Spaß macht. 

Von EGA auf VGA 

Wir zeigen Ihnen, wie der EGA- in einen 
VGA-Rechner umgewandelt werden kann. 

Datenübertragung 

Eine Bauanleitung für ein Nullmodem. Wir 
erklären, was es damit auf sich hat und wie 
das Einsatzgebiet aussieht. 

Die PC-Trickkiste 

In dieser neuen Rubrik geben wir kleine 
Tricks, Kniffe und Programme für den tägli¬ 
chen Umgang. 

Schauen Sie auch mal hier rein, es lohnt 
sich! 


Wir geben ausführliche Informationen über 
die Geschichte der Datenspeicherung. Sie 
beinhaltet alle wichtigen Informationen, die 
jeder wissen sollte. Eine Übersicht der ver¬ 
fügbaren Laufwerke wird diesen interes¬ 
santen Bericht abrunden. 


PCW: 


ID-Scanner 

Interessante Informationen von der Disket¬ 
te sichtbar gemacht. 



- r - .*• 


1 . { 4 ) 




Schneller schreiben mit LocoScript. Wie das mach¬ 
bar ist, zeigen wir in der nächsten Ausgabe 


Flipper 

Eine Software-Review über ein Hilfspro¬ 
gramm. 


ALMAT-DATA.13 

CMZ-Verlag.19 

CSV Riegert.23 

DMV.2,25,29,37,67,71, 

.84,85,99,103,104 

DOBBERTIN.13 

G + L electronic.9 


DIE INSERENTEN 


Kosmalla & Partner.11 

KOTULLA.21 

Krebs electronic.59 

Microsoft.16,17 

PR8-Soft.43 

Schuster.55 

Sinkwitz.19 


Strauß Elektronik.19 

Weber.59 

Weeske.15 

WERDER.9 

WIEDMANN.23 

van der Zalm.93 
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ULTRA PACK 


für nur 50,-DM 


erhalten Sie das ultimative Angebot! 



alle 12 Ausgaben von PC Amstrad/Schneider Int. 
des Jahrgangs 1987 

4- 3 Ausgaben von PC International des Jahres 
1986 aus unseren Restbeständen 

+ 2 Sammelordner zum Archivieren 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag — Postfach 250 — 3440 Eschwege 









Jetzt wird es aber 
höchste Eisenbahn,... 


CPC 

Superpack 

Nr. 1-5 

S Stück = 35,-DM 

Best.-Nr.: 33 




Uttin gs: 

PlUGIt MULATOI 
CANorrrw 
TMf OCIIGNI« 
ROUf MSPIIIAI 


Fast alles wird heute teurer, da ist es 
doch erfreulich, wenn wir Ihnen etwas 
zeigen, was bei gleichbleibender Quali¬ 
tät preiswerter wird: Unsere CPC-Son- 
derhefte 1-5. Sie bieten Ihnen alles, 
was den Prozessor Ihres CPC höher tak¬ 
ten und Ihr Herz höher schlagen läßt. 
Nicht nur Informationen rund um den 
CPC, nein, auch Super- Software zum 
Abtippen, Super-Hardware zum Nach¬ 
bauen. 

*** Insgesamt über 1 MegaByte an Pro¬ 
grammen *** bekommen Sie für den sa¬ 
genhaft günstigen Preis von DM 35, -. 
Hier ein kleiner Überblick über diese 
Fundgrube an Computerspaß: 

- Anwendungen: 

Relative Dateiverwaltung, BASIC-Erwei- 
terungen, Datenlernübertragung 
Floppyprogrammlerung, Diskeltenmoni¬ 
tor, Soundprogramm. 

- Hardware: 

Anschluß von Zweitflopples, Bauanlei¬ 
tungen rund um den CPC. 

- Spiele: 

Abenteuer, Action, Knobeln, Rollenspie¬ 
le. Tips und Hinweise, falls Sie mal 
nicht weiterkommen. 

- Tips und Tricks: 

Alles über CPC 464/ 664/ 6128, CP/M, 
Assembler. 

Und das ist nur ein kleiner Querschnitt 
der großen Programmvielfalt der CPC- 
Sonderhefte 1 - 5. 

Also, wenn Sie den Zug nicht verpassen 
wollen - kaufen Sie sich geballte CPC- 
Informatlon zum Sonderpreis. 



...daß Sie endlich 
unsere CPC-Sonder- 
hefte kennenlernen! 



Kraftfutter für Ihren 
CPC - jetzt zum 
günstigen Preis. 





Sonderheft 6/B8 

Grundlagen, viele Tips, nützliche Anwendungen und 
tolle Spielprogramme - ein Muß für leden CPC-Anwen- 
der. Dieses Sonderheft behandelt das gesamte Spek¬ 
trum möglicher CPC-Einsatzgebiete und bietet Informa¬ 
tionen für jedermann. U.a. komplette Lagerbuchfüh¬ 
rung, relative und sequentielle Datei, neues Disketten- 
DOS, viele Lemprogramme, CP/M und Turbo Pascal 
und, und. und... * 

Best.-Nr.: 312 14,- DM 

Sonderheft 7/88 

Wieder eine Fundgrube für CPC-Besitzer: 

Music-Star ist ein tolles Soundprogramm, machen Sie 
Ihren CPC zum Synthesizer. Spiele wie COSMIC, AUXI- 
LIA, SUPERTRON 3D werden Sie in Atem halten. Tips 
und Tricks rund um die CPCs in Assembler, CP/M und 
BASIC. Ein Sprachsynthesizer zum Nachbau, Grundla¬ 
gen über die Floppy- Programmierung- alles das fin¬ 
den Sie im Sonderheft 7. # 

Best.-Nr.: 313 14,— DM 



a 400 Kg 


Tips & THcks 


Musikprogramm de Luxe 
Chemie - ganz einfach 


CP/M: 


Viele Tips und \ 1JA 
Ergänzungen / W 


Sprachsynthesizer 
de Luxe 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung 

(unverbindliche Preisempfehlung) Bitte benutzen Sie dje Bestellkarte. 

DMV-Verlag Postfach 250 3440 Eschwege 




























